sub cookieRead {
	local(@rawCookies) = split (/; /,$ENV{'HTTP_COOKIE'});

	foreach (@rawCookies) {
		($key, $val) = split (/=/, $_);
		$cookie{$key} = $val;
	}
}
sub cookieWrite {
	local($name, $value, $expiration, $path, $domain, $secure) = @_;

	print "Set-Cookie: ";
	print ($name, "=", $value, "; path=", $path, "; domain=", $domain, "; ", $secure, "\n");
}