perl -MFile::Find -le 'for (@INC) {
    find(sub { print $File::Find::name if /pm$/ }, $_)
}'