<perl>
out "Content-type: text/html\n\n";
out '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
out "<html><head><title>Umgebungsvariablen</title></head><body>\n";
out "<h1>Umgebungsvariablen:</h1>\n";
out "<table border=\"1\">\n";
out "<tr><th align=\"left\" bgcolor=\"#E0E0E0\">Variablenname</th>",
"<th align=\"left\" bgcolor=\"#E0E0E0\">Wert</th></tr>\n";
foreach(keys(%ENV)) {
out "<tr><td><b>$_</b></td><td><tt>$ENV{$_}</tt></td></tr>\n";
}
out "<tr><th align=\"left\" bgcolor=\"#E0E0E0\" colspan=\"2\">insgesamt: ",
scalar keys(%ENV)," Umgebungsvariablen</th></tr>\n";
out "</table>\n";
out "</body></html>\n";
</perl>
---------------------------------