#!/local/bin/perl
print "Content-Type:  text/plain\n\n";
foreach $key (keys %ENV){
	print "$key = $ENV{$key}\n";
	}