#!/usr/bin/perl -w
#ass3env.pl - Show the environment variables.
print "Content-type: text/html\n\n";
print "Environment Variables and Passed Parameters
\n";
print "
\n";
print "Environment Variables
\n";
foreach $key (sort keys %ENV){
print "$key=$ENV{$key}
\n";
}
#now show passed parameters
use CGI qw(:standard);
$query = new CGI;
@names = $query->param;
print "
\n\n";
print "Passed Parameters
\n";
foreach $key (@names) {
$st = $query->param($key);
print "$key=$st
\n";
}