gistfile1.sh

function pm-version {
    local arg;
    local module_path;
    for arg in $@; do
        module_path=`perldoc -l $arg 2>&1`;
        if [ ! -e "$module_path" ]; then
            echo "$arg not found"
            break
        fi  
        perl -MExtUtils::MakeMaker -e '
            $module = shift;
            $path = shift;
            printf "%s : %s\n", $module, MM->parse_version($path);
        ' "$arg"  "$module_path"
    done
}