#!/local/bin/perl print "Content-type: text/html", "\n\n"; print "", "\n"; print "Server and User Information", "\n"; print ""; print "

Information about this Server

", "\n"; print "

";

# The server's hostname or IP address
print "Server Name:	", $ENV{'SERVER_NAME'}, '
', "\n";

# The port number of the host on which the server is running
print "Server Running on Port:	", $ENV{'SERVER_PORT'}, '
', "\n";

# The name and version of the server software that is running
print "Server Software:	", $ENV{'SERVER_SOFTWARE'}, '
', "\n";

# The name and revision of the information protocol the server 
# is using to communicate with the client
print "Server Protocol:	", $ENV{'SERVER_PROTOCOL'}, '
', "\n";

# The revision of the CGI that the server uses
print "CGI Revision:	", $ENV{'GATEWAY_INTERFACE'}, '
', "\n";

print "

", "\n"; print "

Information about the remote user

", "\n"; print "

";

# The remote hostname and IP address of the user who making this request
print "Remote Host Name:	", $ENV{'	REMOTE_NAME'}, ',
', "\n";
print "Remote Host IP address:	", $ENV{'REMOTE_ADDR'}, ',
', "\n";

# The authenticated name of the user
print "User Name:	", $ENV{'REMOTE_USER'}, '
', "\n";

# The list of MINE types the client can accept
print "Accept Types:	", $ENV{'HTTP_ACCEPT'}, '
', "\n";

# The browser the user is using to make this request
print "Browser:	", $ENV{'HTTP_USER_AGENT'}, '
', "\n";

# The URL of the document the client points to before accessing 
# the CGI program
print "Referial:	", $ENV{'HTTP_REFERER'}, '
', "\n";

# The query information the user send. 
# It is appended to the URL with a "?".
print "Query String:	", $ENV{'QUERY_STRING'}, '
', "\n";

print "

", "\n"; print "", "\n"; exit;