[prog] Perl and find(1)

[Chris Henderson]

I wrote this script which will go inside some directories and delete
files but the find(1) command says "-exec" missing. Is it because I'm
not parsing ls correctly?

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my @directories = qw(
    /home/backup/server1
    /home/backup/server2
    /home/backup/server3
);

system "find @directories -atime +14 -name \"*.tgz\" -print -exec ls -al {} \;";