|
# 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";
}
|