Select Code to Download

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

$VAR1 = {
          'TSSID' => bless( {
...
                            }, 'CGI::Cookie' )
        };

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

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

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

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

{
my $sname = 'CGISESSID';
...
my $sessioncookie = new CGI::Cookie(-name=>$sname,-value=>$cookie2,-pa
+th=>'/cgi-bin'-secure=>1);
print encode_entities(Dumper($sessioncookie))."\n";
}

$VAR1 = bless( {
                 'name' => 'CGISESSID',
...
                                     }, 'CGI::Cookie' )
                            ]
               }, 'CGI::Cookie' );

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

$VAR1 = bless( {
                 'name' => '',
...
                              '40d64ab47d37f6c7ae806dc11a59f242'
                            ]
               }, 'CGI::Cookie' );