#!/usr/bin/perl

                    print "Content-type: text/html\n\n";
                    print "AUTH_TYPE = $ENV{'AUTH_TYPE'}<BR>\n";
                    print "CONTENT_LENGTH = $ENV{'CONTENT_LENGTH'}<BR>\n";
                    print "CONTENT_TYPE = $ENV{'CONTENT_TYPE'}<BR>\n";
                    print "GATEWAY_INTERFACE =
                           $ENV{'GATEWAY_INTERFACE'}<BR>\n";
                    print "PATH_INFO = $ENV{'PATH_INFO'}<BR>\n";
                    print "PATH_TRANSLATED = $ENV{'PATH_TRANSLATED'}<BR>\n";
                    print "QUERY_STRING = $ENV{'QUERY_STRING'}<BR>\n";
                    print "REMOTE_ADDR = $ENV{'REMOTE_ADDR'}<BR>\n";
                    print "REMOTE_HOST = $ENV{'REMOTE_HOST'}<BR>\n";
                    print "REMOTE_IDENT = $ENV{'REMOTE_IDENT'}<BR>\n";
                    print "REMOTE_USER = $ENV{'REMOTE_USER'}<BR>\n";
                    print "REQUEST_METHOD = $ENV{'REQUEST_METHOD'}<BR>\n";
                    print "SCRIPT_NAME = $ENV{'SCRIPT_NAME'}<BR>\n";
                    print "SERVER_NAME = $ENV{'SERVER_NAME'}<BR>\n";
                    print "SERVER_PORT = $ENV{'SERVER_PORT'}<BR>\n";
                    print "SERVER_PROTOCOL = $ENV{'SERVER_PROTOCOL'}<BR>\n";
                    print "SERVER_SOFTWARE = $ENV{'SERVER_SOFTWARE'}<BR>\n";
                    print "HTTP_ACCEPT = $ENV{'HTTP_ACCEPT'}<BR>\n";
                    print "HTTP_ACCEPT_ENCODING =
                           $ENV{'HTTP_ACCEPT_ENCODING'}<BR>\n";
                    print "HTTP_ACCEPT_LANGUAGE =
                           $ENV{'HTTP_ACCEPT_LANGUAGE'}<BR>\n";
                    print "HTTP_AUTHORIZATION =
                           $ENV{'HTTP_AUTHORIZATION'}<BR>\n";
                    print "HTTP_CHARGE_TO = $ENV{'HTTP_CHARGE_TO'}<BR>\n";
                    print "HTTP_FROM = $ENV{'HTTP_FROM'}<BR>\n";
                    print "HTTP_IF_MODIFIED_SINCE =
                           $ENV{'HTTP_IF_MODIFIED_SINCE'}<BR>\n";
                    print "HTTP_PRAGMA = $ENV{'HTTP_PRAGMA'}<BR>\n";
                    print "HTTP_REFERER = $ENV{'HTTP_REFERER'}<BR>\n";
                    print "HTTP_USER_AGENT = $ENV{'HTTP_USER_AGENT'}<BR>\n";