sub CookieCutter {
	my $raw_dough = "@_";

	my ($cookie, $key, $value);
	undef %Cookies;

	foreach $cookie (split / /, $raw_dough) {
		if (not ($key, $value) = ($cookie =~ /^([^\=]+)\=([^\;\s]+)/)) {
			if (($key) = ($cookie =~ /^([^\=]+)\=[\;\s+]/)) {
				$value = '';
			}
		}

		$Cookies{ $key } = $value;
	}
}