#!/usr/bin/perl
#京
use strict;
use CGI::Session;
my $session = new CGI::Session(undef,$ENV{'QUERY_STRING'},{Directory=>'/tmp'});
if ( !$ENV{'QUERY_STRING'} ) {
$session->param(-name=>"test" ,-value=>"ok");
}
my $id = $session->id();

print "content-type:text/html;charset=euc-jp;\n";
print "\n";
print $id."<br>".$session->param("test");
print qq|<br><br><a href="test.cgi?$id">テスト</a>|;