#!/usr/bin/perl
print "content-type: text/html\n\n";
print "Environment
\n";
print "
These are the environment variables in the current context:
\n
Refresh and look at HTTP_REFERRER and QUERY_STRING
see Iframe example again
\n";
while ((my $key, my $value) = each (%ENV))
{
print "- $key =\n
- $value\n";
}
print "
\n\n";