note
xorl
This is how I do it.
<code>
use File::Find;
find(\&wanted, $dir);
sub wanted {
unlink $_ if -M $_ > $days;
}
</code>
$dir is the directory you want to delete files from
<BR>$days is how old the files are. i.e. if you wanted to delete all files older than two weeks set days to 14.
399501
399501