#!/usr/bin/perl

# Print HTML-Header
print "Content-type: text/html", "\r\n\r\n";
print "<HTHL>", "\n";
print "<HEAD><TITLE>Anmeldung lichtnet</TITLE></HEAD>", "\n";
print "<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#0000FF\" VLINK=\"#0000CC\" ALINK=\"#FF0000\">", "\n";

#Liste mit den Environment-Variblen-Bezeichnungen erstellen
my @envvars = keys(%ENV);

#Liste mit den Bezeichnungen und Inhalten ausdrucken
print "<h1>Liste der Umgebungsvariablen</h1>\n";
print "<table border=1 cellpadding=5>\n";

foreach my $env (@envvars) {
  print "<tr><td>$env</td> <td>$ENV{$env}</td></tr>\n";
  }

print "</table>\n";
print "</BODY></HTML>\n";

