#!/usr/bin/perlprint "Content-type: text/html", "\n\n";print "<HTML><BODY>", "\n";print "<H1>環境変数</H1><HR>", "\n";foreach my $key( keys %ENV ){print "$key: $ENV{$key}<BR>", "\n";}print "<HR>", "\n";print "</BODY></HTML>", "\n";
#!/usr/bin/perlprint "Content-type: text/html", "\n\n";print "<HTML><BODY>", "\n";print "<H1>環境変数</H1><HR>", "\n";foreach my $key( keys %ENV ){print "$key: $ENV{$key}<BR>", "\n";}print "<HR>", "\n";print "</BODY></HTML>", "\n";