Select Code to Download

for (glob "$path/*">) {
    unlink if -f and -M _ > $cutoff;
}

sub unlink_all (
    my ($path, $cutoff) = @_;
...
    }
    1;
}