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