#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

print "AUTH_TYPE = $ENV{'AUTH_TYPE'}\n";
print "<BR>\n";
print "CONTENT_TYPE = $ENV{'CONTENT_TYPE'}\n";
print "<BR>\n";
print "CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}\n";
print "<BR>\n";
print "GATEWAY_INTERFACE = $ENV{'GATEWAY_INTERFACE'}\n";
print "<BR>\n";
print "REQUEST_METHOD = $ENV{'REQUEST_METHOD'}\n";
print "<BR>\n";
print "SCRIPT_NAME = $ENV{'SCRIPT_NAME'}\n";
print "<BR>\n";
print "QUERY_STRING = $ENV{'QUERY_STRING'}\n";
print "<BR>\n";
print "SERVER_SOFTWARE = $ENV{'SERVER_SOFTWARE'}\n";
print "<BR>\n";
print "SERVER_NAME = $ENV{'SERVER_NAME'}\n";
print "<BR>\n";
print "SERVER_PROTOCOL = $ENV{'SERVER_PROTOCOL'}\n";
print "<BR>\n";
print "SERVER_PORT = $ENV{'SERVER_PORT'}\n";
print "<BR>\n";
print "HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}\n";
print "<BR>\n";
print "HTTP_ACCEPT = $ENV{'HTTP_ACCEPT'}\n";
print "<BR>\n";
print "PATH_INFO = $ENV{'PATH_INFO'}\n";
print "<BR>\n";
print "PATH_TRANSLATED = $ENV{'PATH_TRANSLATED'}\n";
print "<BR>\n";
print "REMOTE_HOST = $ENV{'REMOTE_HOST'}\n";
print "<BR>\n";
print "REMOTE_ADDR = $ENV{'REMOTE_ADDR'}\n";
print "<BR>\n";
print "REMOTE_USER = $ENV{'REMOTE_USER'}\n";
print "<BR>\n";
print "REMOTE_IDENT = $ENV{'REMOTE_IDENT'}\n";
print "<BR>\n";
