my $cgi = CGI->new;
print $cgi->header();
my $session = CGI::Session->load() or die CGI::Session->errstr;
if ( $session->is_expired )
{
print "Your session timed out! Refresh the screen to start new session!";
exit(0);
}
elsif ( $session->is_empty )
{
$session = $session->new() or die $session->errstr;
print $session->header();
print $session->id();
$session->expire("5h");
print "call";
print Dumper($session);
$session->flush();
}
else
{
print "session found";
print "call";
}