#!/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 "";
}
print "</p>";
print "</body>";
print "</html>";
exit;