#!/usr/local/bin/perl
$| = 1;
print "Content-type: text/html\n\n";

foreach $key (sort keys(%ENV)) {
	print "$key = $ENV{$key}<BR>\n";
}

print "And I am running as user: ";
system("whoami");