use CGI::Session;
my $cgi = new CGI;

$sid = $cgi->cookie('YAMBE_SESSID') || $cgi->param('YAMBE_SESSID') || undef;
$session = new CGI::Session(undef, $sid, {Directory=>'\tmp'});
$session->expire('3');
$session->param("USER", $lg_name);
my $cookie = $cgi->cookie(YAMBE_SESSID => $session->id );
print $cgi->header(-cookie=>$cookie);