#!/usr/bin/perl
# Print HTML-Header
print "Content-type: text/html", "\r\n\r\n";
print "", "\n";
print "Anmeldung lichtnet", "\n";
print "", "\n";
#Liste mit den Environment-Variblen-Bezeichnungen erstellen
my @envvars = keys(%ENV);
#Liste mit den Bezeichnungen und Inhalten ausdrucken
print "Liste der Umgebungsvariablen
\n";
print "\n";
foreach my $env (@envvars) {
print "| $env | $ENV{$env} |
\n";
}
print "
\n";
print "