環境変数を全て表示（%ENV）
#! /usr/local/bin/perl
# HTML出力
print "Content-type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<title>環境変数を全て表示</title>\n";
print "</head>\n";
print "<body>\n";
# 環境変数を出力
print "<table>\n";
foreach $key (sort keys %ENV) {
$value = $ENV{$key};
$value =~ s/\w/\*/g; #サンプルのため非表示です。この行を削除してください。
print "<tr><td>$key</td><td>$value</td></tr>\n";
}
print "</table>\n";
# HTML出力
print "</body>\n";
print "</html>\n";
exit;
〔 実行する 〕