$socket->connect() or do {
   my $errstr = $socket->errstr();
   $logger->write("unable to connect to $server:$service ($errstr)");
   $socket->disconnect();
   sleep $recon;
   next ENDLESS;
};

$logger->write("connect to $server:$service successful");

$socket->send($auth) or do {
   my $errstr = $socket->errstr();
   $logger->write("unable to send client data to $server:$service ($errstr)");
   $socket->disconnect();
   sleep $recon;
   next ENDLESS;
};