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;