use CGI::Session;
my $session = new CGI::Session();

my $cookie = $query->cookie(  
                            CGISESSID => $session->id,
                           );
print $query->header(-cookie => $cookie);