egy hétnél régebbi fájlok törlése egy könyvtárból

most izzadtam össze ezt a perl scriptet

#!/usr/bin/perl
use File::stat;
use Time::localtime;


my $interval = 24*7*60*60; //egy hét
my $directory = "/home/kouga/prog/proba/"; //innen töröl

opendir(DIRHANDLE,$directory) or die "$!";
@filenames = readdir(DIRHANDLE);
closedir(DIRHANDLE);
if (@filenames) {
foreach $doc(@filenames) {
if (($doc ne '.') && ($doc ne '..')) {
$file_date = (stat($directory.$doc)->mtime) ;
if ( (time()-$interval) > $file_date ) {
unlink($directory.$doc);
}
}
}
}