#!c:\Perl\bin\perl.exe
print "Content-type: text/html\n\n";
print '', "\n";print "\n";
print "\n\n";
print "\n";
print "\n";
print "\n";
print "TITELTHEMA\n";
print "\n";
print "\n";
print "\n";
use CGI;
my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');
my %params = $cgi->Vars();
my $benutzer = $params{'var'}; #Benutzer
my $hwcode1 = $params{'var1'}; #Parameter1 der hw1
my $hwcode2 = $params{'var2'}; #Parameter2 der hw2
my $hwcode3 = $params{'var3'}; #Parameter3 der hw3
my $hwcode4 = $params{'var4'}; #Parameter4 der hw4
my $haus= $params{'var5'}; #Haus
my $room = $params{'var6'}; #Zimmer