#!/usr/local/bin/perl
print ("Content-type: text/html\n\n");
print ("");
print ("");
print ("");
print ("GET ENVIRONMENT VARIABLES PAGE");
print ("");
print ("");
print ("");
print ("GET ENVIRONMENT VARIABLES
");
print ("
");
print ("QUERY_STRING
");
print ("$ENV{'QUERY_STRING'}");
print ("
");
print ("REMOTE_ADDR
");
print ("$ENV{'REMOTE_ADDR'}");
print ("
");
print ("");
print ("");