gistfile1.txt

pmver ()
{
    do_cd=;
    if [ "$1" = '-cd' ]; then
        do_cd=1;
        shift;
    fi;
    module=$1;
    perl -M${module} -e "print \$${module}::VERSION,\"\n\"";
    fullpath=$(
    perldoc -ml ${module} 2>/dev/null
    [ $? -eq  255 ] && perldoc -l ${module}
  );
    echo $fullpath;
    if [ "$do_cd" = '1' ]; then
        \cd $(dirname $fullpath);
    fi
}

### こんなす
goa:10[~]$ pmver Acme::Hidek
40.0
/usr/local/lib/perl/5.8.8/Acme/Hidek.pm

### -cd つけるとソコにcdしまんす
goa:10[~]$ pmver -cd Acme::Hidek
40.0
/usr/local/lib/perl/5.8.8/Acme/Hidek.pm