sub parsecookie {
	local($ck,@entries,$item,$key,$value,%cookie);
	$ck=$ENV{HTTP_COOKIE};
	@entries=split(/;\s/,$ck);
	foreach $item (@entries) {
		($key,$value)=split(/=/,$item);
		$value=~s/^"//;
		$value=~s/"$//;
		$cookie{$key}=$value;
	}
	return(%cookie);
}