my %cookies = CGI::Cookie->fetch;
  print encode_entities(Dumper(\%cookies))."\n";

##</code><code>##

$VAR1 = {
          'TSSID' => bless( {
                              'name' => 'TSSID',
                              'path' => '/',
                              'value' => [
                                           '40d64ab47d37f6c7ae806dc11a59f242'
                                         ]
                            }, 'CGI::Cookie' )
        };


##</code><code>##

  my $cookie2 = $q->cookie(TSSID => $session->id );
  print encode_entities(Dumper($cookie2))."\n";

##</code><code>##

$VAR1 = bless( {
                 'name' => 'TSSID',
                 'path' => '/',
                 'value' => [
                              '40d64ab47d37f6c7ae806dc11a59f242'
                            ]
               }, 'CGI::Cookie' );

##</code><code>##

my $sessioncookie = new CGI::Cookie(-name=>$sname,-value=>$sid,-expires=>$session_cookie_timeout,-path=>'/cgi-bin',-domain=>$domain,-secure=>1);
	print header(-Cookie=>[$sessioncookie],-type=>"text/html");

##</code><code>##

	print header(-Cookie=>[$sid],-type=>"text/html");

##</code><code>##

{
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";
}

##</code><code>##

$VAR1 = bless( {
                 'name' => 'CGISESSID',
                 'path' => '/',
                 'value' => [
                              bless( {
                                       'name' => 'TSSID',
                                       'path' => '/',
                                       'value' => [
                                                    '40d64ab47d37f6c7ae806dc11a59f242'
                                                  ]
                                     }, 'CGI::Cookie' )
                            ]
               }, 'CGI::Cookie' );

##</code><code>##

  my $sname=''; 
  my $cookie3 = new CGI::Cookie(-name=>$sname,-value=>$session->id,-path=>'/cgi-bin',-secure=>1);
  print encode_entities(Dumper($cookie3))."\n";

##</code><code>##

$VAR1 = bless( {
                 'name' => '',
                 'path' => '/cgi-bin',
                 'secure' => 1,
                 'value' => [
                              '40d64ab47d37f6c7ae806dc11a59f242'
                            ]
               }, 'CGI::Cookie' );