# cgi page
my $cgi = CGI->new;
#print $cgi->header();
print $cgi->start_html();
print $cgi->p("hello");
print $cgi->cookie('CGISESSID');
# load session info
my $session = CGI::Session->load() or die CGI::Session->errstr;
print $session->header();
if ($session->is_empty) 
{
	print $cgi->p("no session");
	}
	else
	{
	print $cgi->p("<b>session data loaded</b>");
	print $session->name;	
	print $session->id;
	print $session->is_expired;
	}
print $cgi->end_html();