print "Content-Type: text/plain\n\nPerl Version $] ($^V)\n";
print "\n$_:\n", qx($_ 2>&1) foreach qw(id pwd env);