21 lines
369 B
Perl
21 lines
369 B
Perl
|
# 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";
|
||
|
|
}
|