if ($ENV{'HTTP_COOKIE'}) {
   @cookies = split (/; /, $ENV{'HTTP_COOKIE'});
   foreach $cookie (@cookies) {
	($name, $value) = split (/=/, $cookie);
	$cookie_hash{$name} = $value;
   }
}