my $session = CGI::Session->load() or die CGI::Session->errstr;
print $session;
if ($session and not $session->is_empty and not $session->is_expired) 
{ #Session ist gültig
        print "angemeldet!";
}
else
{
        print "nicht angemeldet";
}