#!c:\Perl\bin\perl.exe use CGI; my $cgi = CGI->new(); print $cgi->header(-type => 'text/html'); my %params = $cgi->Vars(); print $cgi->start_html(-title => 'TITELTHEMA', -style =>{'src = 'http://localhost/styles/main.css'}); print "\n"; 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