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