..
$session->save_param($cgi); 	         
setCookie($cgi, $session);
..
sub setCookie($) {
   my($cgi, $session) = @_;
   $cookie = $cgi->cookie(CGISESSID=> $session->id);
   print $cgi->header( -cookie=>$cookie);
}