Select Code to Download

#!/usr/bin/perl -w 
use strict;
...
                            -expires=>'+1h',
                            -domain=>'.perlmonks.org');
print $query->header(-cookie=>$cookie);

#!/usr/bin/perl -w
use strict;
use CGI;
my $query = new CGI;
my %testcookie = $query->cookie(-name=>'testCookie');