use File::Find;
# Module list
foreach my $dir (@INC){
  find sub {
    print "$File::Find::name\t" if /\.pm$/;
  }, $dir;
}