Select Code to Download

openssl s_client -starttls smtp -crlf -connect smtpserver:25
.
...
.
.
334 VXNlcm5hbWU6

my $smtp = Net::SMTP_auth->new('smtpserver');
$smtp->starttls;
$smtp->auth('LOGIN', 'username', 'password);