# Cookie-String Parsen
# $ENV{HTTP_COOKIE}
sub cookie_parse{
    my $self = shift;
    my $cookies = shift || $ENV{HTTP_COOKIE} || '';
    my %pie = map { /(\w+)=(.*)/ } split /;\s+/, $cookies;
    return \%pie;
}