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

##</code><code>##

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

##</code><code>##

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


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


##</code><code>##

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