利用Perl列出系统环境变量清单范例
#!/usr/bin/perl
#安装说明:
#复制程序代码,并存成env.cgi
#以ascii模式上传至主机cgi-bin目录后将属性改成755
$|=1;
print "Content-type: text/html\n\n";
print "
print "\n";
print "\n";
print "\n";
print "\n";
print "变量名称\n";
print "目前状况\n";
print "\n";
foreach $fieldname(keys %ENV){
print "\n";
print "$fieldname\n";
print "$ENV{$fieldname}\n";
print "\n\n";
}
print "\n";
print "\n";
