All the cookies you're ever gonna get are sent on every transaction. So, to list them, use code something like:

use CGI qw(:all);
print header, start_html("cookie lister"), h1("cookies");
for (cookie) {
  print escapeHTML($_), " has value ", escapeHTML(join ", ", cookie($_
+)), br;
}
print end_html;
[download]

-- Randal L. Schwartz, Perl hacker