Help for this page
$cookie = CGI::Cookie->new(-name=>$session->name, -value=>$session +->id); print $cgi->header(-cookie=>$cookie, @_);