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

##</code><code>##

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