Select Code to Download

#!/usr/local/bin/perl -w
use strict;
...

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

# same guidelines as above, use strict and that ilk
 my %been_at;
...
    print if /\.pm$/;
 }
find { wanted => \&wanted, no_chdir => 1 } $dir foreach my $dir (@INC)
+;