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