Select Code to Download

use strict; use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';
...
print start_html('Test');
print Dumper($CS->{_QUERY}->{'.cookies'}->{CGISESSID});
print end_html;

my $cookie=CGI::Cookie->new(
  -name=>$CS->name,
...
);

print header(-cookie=>$cookie);