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 !
                
                }