Select Code to Download

#!/usr/bin/perl
# cookietest.cgi
...
my $count = keys %cookie;
print h3("There are $count cookies");
print pre( Dumper \%cookie ),end_html;