my $cgi = CGI->new;
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 = CGI::Session->new () or die CGI::Session->errstr;
		$session->expire("2h");                
		print $session->header();              
		print "<a href='called.pl'>call</a></br></br>";
		print Dumper($session);		
    }
	else
	{
	print $session->header();  
	print "session found";
	print "<a href='called.pl'>call</a></br></br>";
	}
$session->flush();