#!/perl/bin/perl -wT
use strict;
use CGI;
use CGI::Session;
my $cgi = CGI->new;
my $session = CGI::Session->new( undef, $cgi, {Directory=>'/tmp'} );
my $cookie = $cgi->cookie(CGISESSID => $session->id );
print $cgi->header(-cookie=>$cookie);
print $cgi->start_html("query.cgi");
print "cookies is : $cookie
" ;
my $sid = $session->id();
print "
sid = $sid
";
print $cgi->end_html;