#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
print "CGIでの環境変数一覧
\n";
print "
\n";
print "環境変数の表示
\n";
foreach $key (sort keys %ENV) {
print $key, " = ", $ENV{$key}, "
\n";
}
print "
\n";
print "このCGIのソース:env01.cgi
\n";
print "\n";