Select Code to Download

#!/usr/local/bin/perl -w
use strict;
use File::Find;

find { wanted => sub { print if /\.pm$/ }, no_chdir=>1} $dir foreach m
+y $dir @INC;

# use strict and the ilk above
...
}
find {wanted => \&wanted, no_chdir => 1} $dir foreach my $dir @INC;