#!/usr/bin/perl -w

use strict;
use CGI;

my $cgi = CGI->new();

print $cgi->header,
      $cgi->start_html;

my @names = $cgi->cookie();

foreach my $c ( @names ) {
  my $val = $cgi->cookie( $c );
  print $cgi->blockquote( $cgi->em( $c ), ' - ', $val );
}