Select Code to Download

# install some seemingly required modules

cpan MIME::Base64
cpan Authen::SASL

use warnings;
use strict;
...
$smtp->data();
$smtp->datasend("hey!\n");
$smtp->quit();

Net::SMTP::_SSL>>> Net::SMTP::_SSL
Net::SMTP::_SSL>>>   IO::Socket::SSL(2.038)
...
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250 2.0.0 OK 1475936526 t82sm310599
+2itb.18 - gsmtp
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> QUIT
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 221 2.0.0 closing connection t82sm3
+105992itb.18 - gsmtp