my $cgi = CGI->new;
my $session = CGI::Session->load() or die CGI::Session->errstr;
print $session->header();  
print $session->dump();
print "<a href='index.pl'>index</a></br></br>";
$session->flush();