$cookie =$cgi->cookie(
                      -CGISESSID => $session->id,
                      -expires => '+1h',
                      -domain => 'B2R6A056a'
                      };
print $cgi->header(-cookie=>$cookie);

##</code><code>##

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