pmpath () { perl -M$1 -le "print \$INC{'$1.pm'}" }