use strict;
use lib1;
#Variablen
my $q = new CGI;
my $DB=$marisapi::WACSDB;
#mitgeg. Variablen
my $remote_user=lc($q->param('name'));
my $remote_password=$q->param('passwort');
print ( "Content-Type: text/html\n\n" );
print "";
print "";
print " ";
print " ";
print " Anmeldung";
&wacsInitMenuAndButtons;
...