my $cookie = $ENV{'HTTP_COOKIE'}; # if you wanna do this like that.
@all = split(/\;/, $cookie);
foreach (@all) {
    ($var, $value) = split(/=/);
    $values{$var} = $value;
}