perl -e 'while (<@INC>) { while (<$_/*.pm>) { print "$_\n"; } }'