use CGI::Cookie;
use strict;

my %cookies = CGI::Cookie->fetch();

warn "$_: " . $cookies{$_}->value() for keys %cookies;