pmversion () 
{ 
    perl -M$1 -le "print $1->VERSION"
}

##</code><code>##

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

##</code><code>##

pmpath () 
{ 
    perl -M$1 -le "(\$_='$1')=~s{::}{/}g; print \$INC{\$_.'.pm'}"
}