pmver () { perl -le "eval { require ${1} }; if( \$@ =~ /locate (\S+)\.pm/ ) { print qq{${1} not installed}; exit 1; } print qq{${1}: },\$${1}::VERSION||q{undefined}" }