if(($user eq $cgi->param('user')) && ($passwort eq $cgi->param('pwd')))
{
        $session = new CGI::Session("id:md5", undef, {Directory=>'/tmp'});  # Session erzeugen
                
        print "Anmeldung erfolgreich!";
        print "Session ID: ";
        print ($session->id());   #  wird nicht angezeigt !
                
}
# wenn Username und Passwort nicht stimmt
else 
{
### DEBUG
print STDERR
  '$user:       ', $user, "\n",
  'param(user): ', $cgi->param('user'), "\n",
  '$passwort: : ', $passwort, "\n",
  'param(pwd) : ', $cgi->param('pwd'), "\n";  
}