Select Code to Download

use CGI::Cookie;
my $c = new CGI::Cookie(
  -name    =>  'COOKIENAME',
...
  -domain  =>  '.domain.com'
);
print "Set-Cookie: $c\n";

my %temp = parse CGI::Cookie($ENV{HTTP_COOKIE});
my %cookies;
foreach (keys %temp) {
    $cookies{$_} = shift @{$temp{$_}{value}};
}

print header();
my $debug = 1;
# READ COOKIE CODE
...
    print "$_: $cookies{$_}<BR>\n";
  }
}