perl -e 'while (<@INC>) { while (<$_/**>) { if (-d) { push(@INC,$_) } elsif (/\.pm/) { print "$_\n" } else { next } } }'