sub SetUserSessionCookie
{	
        my $printresult = "";
        my ($sname,$sid) = @_;
	#use CGI qw/:standard/;
	#use CGI::Cookie;
	warn("In set cookie: '$sname'   '$sid'");
	my $sessioncookie = new CGI::Cookie(-name=>$sname,-value=>$sid,-expires=>$session_cookie_timeout,-path=>'/',-domain=>$domain,-secure=>1);
	warn("session cookie: '$sessioncookie'");
	$printresult = print header(-Cookie=>[$sessioncookie],-type=>"text/html");
	warn("printresult: '$printresult'");
}