my $days = 30;
for (glob '*') {
    unlink if -f and -M > $days;
}