Select Code to Download

   my $socket \*S1;
   if ($scheme eq "https") {
        tie(*S2, "Net::SSLeay::Handle", $socket);
        $socket = \*S2;
   }

for $sth (@sth) {
  my $object=new STH;
  $objects{$sth}=$object;
};

 {my $io=new IO::Handle; tie(*$io, "Net::SSLeay::Handle", $socket);$so
+cket = \*$io;};

...
  $socket = \*$io;
 };

 $global-net-ssleay-counter++;
 tie(*$global.....