Select Code to Download

$cookie =$cgi->cookie(
                      -CGISESSID => $session->id,
...
                      -domain => 'B2R6A056a'
                      };
print $cgi->header(-cookie=>$cookie);

my %cookie = fetch CGI::Cookie;
foreach $keys ( sort keys %cookie)
{
        print "$keys : $cookies{$_}";
}