#! /usr/bin/perl

use CGI;

$q = new CGI;
$cookies = [];
@params = $q->param();
@cookie_names = ();
if (@params) {
  @cookie_names = @params;
} else {
  @cookie_names = $q->cookie();
}

foreach $name (@cookie_names) {
  push @$cookies, $q->cookie(-name=>$name,
			     -value=>"",
			     -expires=>"-1h");
}


print $q->header(-cookie=>$cookies);
print <<EOT;
<a href="cookie_view.cgi">view</a>
EOT