Select Code to Download

#!/usr/bin/perl
#finds files older than 30 days
...
if (-M _ > 30){print "$File::Find::dir/$_\n"}
}, "$top";

#!/usr/bin/perl
#finds files older than 30 days
...
}, "$top";