my $http_cookie = $ENV{'HTTP_COOKIE'};
$http_cookie =~ /^([^=]+)=(.*)$/;
my($name,$val) = ($1,$2);