Select Code to Download

perl -MFile::Find -le 'for (@INC) {
    find(sub { print $File::Find::name if /pm$/ }, $_)
}'

perl -MFile::Find -le '
for $inc (@INC) {
...
           },
       $inc)
}'