#! /usr/bin/perl

use CGI;

$q = new CGI;

$cookies = [];
foreach $name ($q->param()) {
  $size = $q->param($name);
  $value = 'a'x($size - 1);
  $value .= 'z';

  push(@$cookies, $q->cookie(-name=>$name,
			     -value=>$value,
			    ));
}
$header = $q->header(-cookie=>$cookies);

print $header;
$length = length($header);
$header =~ /Set-Cookie:(.+)/;
$length_sc = length($1);

print <<EOT;

<a href="cookie_view.cgi">view</a> | <a href="cookie_remove.cgi">remove</a><br>
response header size: $length bytes<br>
Set-Cookie header size: $length_sc bytes<br>
$header
EOT