Select Code to Download

#!/usr/bin/perl -w
use File::Find;
find( sub { print "$_\n" if !-l  && -M > 30 }, @ARGV);

perl -MFile::Find -le 'find( sub { print if !-l && -M > 30}, @ARGV)'