Select Code to Download

               socket_write("AUTH PLAIN " . encode_base64(join("\0", $
+auth->{user}, $auth->{user}, $auth->{password}), $CRLF)
                ) || return fail("send AUTH PLAIN failed (lost connect
+ion?)");
                socket_read()
                    || return fail("AUTH PLAIN failed: $server_reply")
+;

- trying abc.us
 
...
<220 TLS go ahead
>EHLO abc.us
<554 Security failure

    unless ( $connected ) {
        return fail("connect to $smtp failed ($!) no (more) retries!")
...
      }     
     }