Select Code to Download

use File::Find;
# Module list
...
    print "$File::Find::name\t" if /\.pm$/;
  }, $dir;
}

use File::Find;
find sub {
  print "$File::Find::name\t" if /\.pm$/;
}, @INC;