# 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; }