【 tulaoshi.com - Linux 】
#!/usr/bin/perl
#安装说明:
#复制程序代码,并存成env.cgi
#以ascii模式上传至主机cgi-bin目录后将属性改成755
$|=1;
print "Content-type: text/htmlnn";
print "
环境变量清单n";
print "n";
print "n";
print "n";
print "n";
print "变量名称n";
print "目前状况n";
print "n";
foreach $fieldname(keys %ENV){
print "n";
print "$fieldnamen";
print "$ENV{$fieldname}n";
print "nn";
}
print "n";
print "n";
exit;
