#!/usr/local/bin/perl if ( $ENV{HTTP_COOKIE} ne '' ){ foreach ( split(/\s*;\s*/,$ENV{HTTP_COOKIE}) ){ foreach ( split(/\,/,$_) ){ my ($key,$value) = split(/=/,$_); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; $COOKIE{$key} = $value; } } } print < \$ENV{HTTP_COOKIE} = $ENV{HTTP_COOKIE}

END foreach ( sort keys %COOKIE ){ print "$_ = $COOKIE{$_}
\n"; } print "\n";