my $srcdir = '/var/local/some_dir/';
my $mtime = '1';
my $destdir = '/backup/some_dir/';

unless (-d $srcdir && -d $destdir ) {die "Error: $!";}

print "Beginning backup...\n";

chdir $srcdir;
opendir(INDIR,$srcdir) || die "Can't open directory: $!";

my @files = readdir(INDIR);

closedir (INDIR);

foreach (@files) {

        unless (-d || $_ eq "." || $_ eq "..") {

                if (-M > $mtime) {
                        print "$_ : Older than one day.\n";
                } else {
                        `tar -cz $_ -f $_.tar.gz`;
                        `mv *.gz $destdir`;
                        print "$_ archived in $destdir\n";
                }
        }
}