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