my $tempdir = $ENV{TMP} || $ENV{TEMP} ||"$ENV{DOCUMENT_ROOT}/cgi-bin/tmp";

# Session einlesen (benutzt per Default bei undef driver:file)
my $session = CGI::Session->load(undef, undef, {DIRECTORY => $tempdir}) or die CGI::Session::errstr;

if ($session->is_expired) {
}
elsif ($session->is_empty) {
}
else {
  #oder neue Session erzeugen
  $session = session->new();  
}