#!/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 <BR>" ;

    my $sid = $session->id();

print "<BR>sid =  $sid <BR>";
print $cgi->end_html;