my $dir = '/path/to';
my $max_age = '5 days';
for (<$dir/*>) {
    -M > $max_age and print "I would have deleted $_.\n";
}