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