A Cgi Get Cookies

#! c:/perl/bin/perl.exe

use CGI qw/:standard *table/;
use strict;

print header;
print start_html('cookies');
print h3('Cookies');
print start_table(-border=>"1");
print Tr([ th(['name', 'value']) ]);
foreach my $ck (cookie()) {
    print Tr([ td([$ck, cookie($ck)]) ]);
}
print end_table;
print end_html;