perl -e'use if 1, $ARGV[0]; print $ARGV[0]->VERSION' JSON::PP