%cookies = CGI::Cookie->fetch;
for (keys %cookies) {
print($cookies{$_});
}