my $sid = $cgi->cookie('CGISESSID') || $cgi->param('CGISESSID') || undef;
my $s = CGI::Session->load(undef, $sid, {Directory=>'tmp/'} ) or die CGI::Session->errstr();
if ( $s->is_expired ) {
  print "bitte loggen Sie sich <a href=\"login.pl\">hier</a> neu ein, ihre Session ist ungültig";
  exit(0);
}
if ( $s->is_empty ) {
  print "bitte loggen Sie sich <a href=\"login.pl\">hier</a> ein, ihre Session existiert nicht";
  exit(0);
}