#! /usr/bin/perl

use CGI;

$q = new CGI;
print $q->header();

foreach $name ($q->cookie()) {
  $value = $q->cookie(-name=>$name);
  print $name,"(", length($value), ")=";

  $value =~ s/(a{1000})/$1<br>/g;
  print "$value<br>";
}