#!/usr/bin/perl

use CGI::Cookie;

%cookies = fetch CGI::Cookie();
$ctab .= "<table border=1>";
$ctab .= "<tr><td>Name</td><td>Value</td></tr>\n";

foreach $c (keys %cookies) {
        $v = $cookies{$c} -> value();
        $ctab .= "<tr><td>$c</td><td>$v</td></tr>\n";
        }

$ctab .= "</table><BR><BR>";


print "Content-type: text/html\n\n";
print $ctab;