#!/usr/local/bin/perl # ---------- 効果 --------- print "Content-type: text/html\n\n"; print "<html><head><title>ENV CGI</title></head><body bgcolor=\"#ffffff\"text=\"blue\">"; print "<a href=\".\">back</a>"; print "<center><H2>環境変数</h2><table border=\"2\">"; foreach $n (keys %ENV){print "<tr><td> $n </td><td> $ENV{$n} </td></tr>\n";} print "</table>"; print "</center></body></html>"; exit; # おしまい。 # _END_