use strict;
use warnings;
my $n; 
print "Content-Type: text/plain\n\nPerl Version $] ($^V)\n";
print "ARGV" . $n++ . ": >>$_<<\n" foreach @ARGV;
print "\n$_:\n", qx($_ 2>&1) foreach qw(id pwd env);