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