my %temp = parse CGI::Cookie($ENV{HTTP_COOKIE});
my %cookies;
foreach (keys %temp) {
	$cookies{$_} = shift @{$temp{$_}{value}};
}