use File::Find;
$|++;
find sub { print "$File::Find::name\n" if $_ =~ /\.pm$/ }, @INC;