CGI::Session->name("SID");
$session = new CGI::Session();
$cookie = $cgi->cookie( -name   => $session->name,
                          -value  => $session->id );
print $cgi->header( -cookie=>$cookie );