Select Code to Download

perl -M'File::Find' -e '$\ = qq(\n); find sub { (-s > 1048576) && prin
+t $File::Find::name }, q(.);'

perl -M'File::Find' -e '$\ = qq(\n); find sub { (-M $_ > 60) && print 
+$File::Find::name. -M $_ }, q(.);'