Select Code to Download

Select or download this

my $smtp = Net::SMTPS->new( $server, Port => $server_port, Debug => 1,
+ doSSL => 
+$mail_sasl_type) || die "cannot connect to server ${server}";
my $sasl = Authen::SASL->new( mechanism => 'PLAIN', debug => 1, callba
+ck => {pas
+s => $pass, user => $user}); 
$smtp->auth( $sasl ) || die "cannot do mail auth";

Select or download this

METHODS

...
auth ( USERNAME, PASSWORD [, AUTHMETHOD])
Attempt SASL authentication through Authen::SASL module. AUTHMETHOD is
+ your required method of authentication, like 'CRAM-MD5', 'LOGIN', ..
+. etc. If your selection does not match the server-offerred AUTH mech
+anism, authentication negotiation may fail.

Select or download this
```
SYNOPSIS
use Authen::SASL;
...
  }
);
```

Select or download this

Net::SMTPS=GLOB(0x562fb253e128)<<< 250-AUTH PLAIN LOGIN CRAM-MD5 DIGES
+T-MD5