use CGI::Cookie;
use Data::Dumper;
my %cookies = fetch CGI::Cookie;
print "Content-type: text/html\n\n", Dumper \%cookies;