my $sessir=$para{"sessid"};
#falls eine session ID übermittelt wurde die alte Session wiederherstellen und die Daten lesen (klappt nicht)
if (!($sessir eq ""))    {
        $se = new CGI::Session(undef, $sessir, {Directory=>'/tmp'});
$l_name = $se->param(-loginname);
            $up= $se->param(-loginpw);
}

###wenn der User erfolgreich eingeloggt ist wird eine neue Session angelegt:

my $session = new CGI::Session(undef, undef, {Directory=>'/tmp'});    
        my $CGISESSID = $session->id();
        $session->param('loginname', $userlogin);
        $session->param('loginpw', $md5pass);
        print $session->header();


###und schliesslich noch der Link mit dem ich die session id übergebe
"travel-base.cgi?sessid=".$CGISESSID