Select Code to Download

use File::Find;
$|++;
find sub { print "$File::Find::name\n" if $_ =~ /\.pm$/ }, @INC;

$|++;
while (@INC) {
...
    }
    closedir MODDIR;
}