#!/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;