use warnings;
  use strict;
  use File::Find;

  foreach my $dir (@INC) {
    File::Find::find (\&wanted,"$dir");
  }

sub wanted {
  if ($File::Find::name =~ /\.pm$/) {
    print "$File::Find::name\n";
  }
}