sub GetCookies
{
  %decode = ('\+'=>' ','\%3A\%3A'=>'::','\%26'=>'&','\%3D'=>'=',
             '\%2C'=>',','\%3B'=>';','\%2B'=>'+','\%25'=>'%');

  my %Cookies = ();
  foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
    my ($cookie,$value) = split(/=/);
    foreach $ch ('\+','\%3A\%3A','\%26','\%3D','\%2C','\%3B','\%2B','\%25') {
      $cookie =~ s/$ch/$decode{$ch}/g;
      $value =~ s/$ch/$decode{$ch}/g;
    }
    $Cookies{$cookie} = $value;
  }
  return %Cookies;
}