[me@host]$ more `which whichpm`
#!/bin/sh
perl "-M$1" -le '$_=shift; s|::|/|g; print $INC{"$_.pm"}' "$1"
[me@host]$ 

##</code><code>##

------------
:Wq
Not an editor command: Wq