Select Code to Download

 eval {
   $sock = Net::SSL->new(
...
   print join( "\t", $host, $interface, $ip, $port,
     'no connection found' ), "\n";
 }

  my $client = IO::Socket::SSL->new("$ip:$port");
  if ($client) {
...
    print join( "\t", $host, $interface, $ip, $port, 'no connection' )
+,
      "\n";
  }