#!c:/perl/bin/perl.exe
use CGI;
my $query = CGI->new;
print "Content-Type: text/html\r\n";
print "\r\n";
print "
\n";
print "\n";
print "CGI ƒeƒXƒg\n";
print "Query:\n
";
foreach my $param ($query->param()) {
print "- [$param]=[",$query->param($param),"]\n";
}
print "
\n";
print "Environments:\n
";
foreach $key (sort(keys(%ENV))) {
print "- [$key]=[",$ENV{$key},"]\n";
}
print "
\n";
print "\n";