$sid = $cgi->cookie("CGISESSID") || $cgi->param("CGISESSID") || undef;

$session = new CGI::Session(undef, $sid, {Directory=>'ward/cookies'});
$cookie = $cgi->cookie(CGISESSID => $session->id );

print $cgi->header(-cookie=>$cookie);

print $session->param("s_userid");