$cookie = $cgimain->cookie(-name  => CGISESSID,
                           -value => $session->id,
                           -path  => '/',
                           -expires  => '+2h',
                          );

print $cgimain->header(-cookie => [$cookie] );