%cookies = fetch CGI::Cookie;
foreach (keys %cookies) {
   do_something($cookies{$_});
}