sub GET { my ($self, $request, $response) = @_ ; my $c = $request->connection; my $cookies = $request->headers_in->{Cookie}; my %cookies = map { split(/=/) } split(/;/,$cookies);