sub proc_cookies {
  my $self = shift;

  my $raw_dough = $ENV{'HTTP_COOKIE'};
  $raw_dough =~ s/; /=/gi;

  $self->{COOKIES} = {};
  %{$self->{COOKIES}} = split(/=/,$raw_dough);
  $self->{PROCESSED} = 1;
  return 1;
}