#!/usr/bin/perl
#####################################################################
# CGI環境變數測試
# 程式提供 OECSPACE http://www.hsiu28.net/
#####################################################################
print "Content-type: text/html\n\n";
print "\n";
print "主機環境變數\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
print "| 主機環境變數名稱 | 變數值 | \n";
for $key (sort(keys(%ENV))) {
print "| $key | $ENV{$key} |
\n";
}
print "
Cgi by OECSPACE\n";
print "\n";
exit;