Select Code to Download

use CGI::Session;
my $session = new CGI::Session();
...
                            CGISESSID => $session->id,
                           );
print $query->header(-cookie => $cookie);

(my $http_host  = $ENV{'HTTP_HOST'}) =~ s/(www.)?([\w\-.]+)/$2/;

...
                            -domain  =>  ".".$http_host,
                           );
print $query->header(-cookie => $cookie);