# create a new session 	
	my $session = CGI::Session->new() or die CGI::Session->errstr;	
	print $session->header();	
	#setting session to expire in 1 hour                              
	$session->expire("+1h");
    #further in page
	# logout option	
	print "<a href='logout.cgi'>logout </a></br>";
	# check option	
	print "<a href='check.cgi'>check page</a>"