{
my $sname = 'CGISESSID';
my $cookie2 = $q->cookie(TSSID => $session->id );
my $sessioncookie = new CGI::Cookie(-name=>$sname,-value=>$cookie2,-path=>'/cgi-bin'-secure=>1);
print encode_entities(Dumper($sessioncookie))."\n";
}