# The HTML file with a hotlink to a CGI script

<html>
<head>
<title>TESTING ENV VARIABLES</title>
</head>
<body>
<p>
<a href="printenv.pl">here</a>
<p>text continues here...
</body>
</html>


#!/bin/perl
print "Content type: text/plain\n\n";
print "CGI/1.1 test script report:\n\n";

while(($key, $value)=each(%ENV)){
    print "$key = $value\n";
}