sub pop_cookies
{
  my $rawcookies=$ENV{HTTP_COOKIE};
  $rawcookies=~s/Cookie:|\s//ig;
  for my $nvp (split(/;/,$page{rawcookies}))
  {
    my ($n,$v)=split(/=/,$nvp);
    {
      $cookies{$n}=$v;
    }
  }
}