#!/usr/bin/perl
use CGI;
my $cgi = new CGI();
print $cgi->header();
foreach my $key (keys %ENV) {
	print "$key: $ENV{$key}<br />\n";
}