perl -MFile::Find -le 
 'find(sub { print "$File::Find::dir/$_" if /\.pm$/ }, @INC )'