#!/usr/bin/perl -w use strict; use diagnostics; use CGI; # Create an instance of CGI my $query = new CGI; print $query->header("text/html"); print $query->start_html(-title = > "Cookies received"); # Create a new cookie with a name "counter" and # the value "1". my @cookies = $query->cookie; my $cookie = ""; foreach $cookie (@cookies) { print "<P>$cookie = ", $query->cookie($cookie), "</P>\n"; } # Send some HTML as a placeholder print $query->end_html;