cgi环境变量列表程序

cgi环境变量列表程序

#!/usr/bin/perl
print "Content-type:text/htmlnn";
print "<html>";
print "<title>查看CGI的环境变量</title>";
print "<body>";
print "<h4 align=center>CGI的环境变更</h4>";
print "<p>";

@key=keys(%ENV);

foreach (sort @key){
print "$_=$ENV{$_}";
print "<br>";
}
print "</p>";
print "</body>";
print "</html>";

exit;