$HTML='<table border=1 cellspacing=0 cellpadding=8>';
	foreach my $key ( sort qw{ 
			HTTP_ACCEPT_ENCODING 
			HTTP_CONNECTION 
			REQUEST_METHOD 
			HTTP_ACCEPT 
			QUERY_STRING 
			REMOTE_PORT 
			HTTP_USER_AGENT 
			HTTP_ACCEPT_LANGUAGE
			REMOTE_ADDR
			SERVER_PROTOCOL
			HTTP_REFERER 
			
		} ) 
	{
		$HTML .= sprintf "<tr><td>%s</td><td>%s</td></tr>\n", $key, $ENV{$key};
	}
	$HTML .= '</table>';

	print	join( "\n"
		,q{Content-Type: text/html}
		,''
		,$HTML
		#,%ENV
		,'<p><a href="." >reload</a></p>'
	);