# install some seemingly required modules

cpan MIME::Base64
cpan Authen::SASL

##</code><code>##

use warnings;
use strict;

use Net::SMTP;

my $smtp = Net::SMTP->new(
    'smtp.gmail.com',
    Hello => 'local.example.com', # can be anything
    Timeout => 30,
    Debug   => 1,
    SSL     => 1,
);
$smtp->auth('me@gmail.com', '******')
  or die $!;
$smtp->mail('me@gmail.com'); # from addr
$smtp->to('me@gmail.com');
$smtp->data();
$smtp->datasend("hey!\n");
$smtp->quit();

##</code><code>##

Net::SMTP::_SSL>>> Net::SMTP::_SSL
Net::SMTP::_SSL>>>   IO::Socket::SSL(2.038)
Net::SMTP::_SSL>>>     IO::Socket::IP(0.37)
Net::SMTP::_SSL>>>       IO::Socket(1.38)
Net::SMTP::_SSL>>>         IO::Handle(1.36)
Net::SMTP::_SSL>>>           Exporter(5.72)
Net::SMTP::_SSL>>>   Net::SMTP(3.10)
Net::SMTP::_SSL>>>     Net::Cmd(3.10)
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 220 smtp.gmail.com ESMTP t82sm3105992itb.18 - gsmtp
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> EHLO local.example.com
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-smtp.gmail.com at your service, [50.66.135.148]
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-SIZE 35882577
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-8BITMIME
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-AUTH LOGIN PLAIN XOAUTH2 PLAIN-CLIENTTOKEN OAUTHBEARER XOAUTH
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-PIPELINING
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250-CHUNKING
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250 SMTPUTF8
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> AUTH LOGIN
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 334 VXNlcm5hbWU6
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< (decoded) Username:
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> (decoded) me@gmail.com
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> c3RldmUuYmVydHJhbmRAZ21haWwuY29t
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 334 UGFzc3dvcmQ6
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< (decoded) Password:
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> (decoded) *****
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> OTF4MTY0MzRBaA==
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 235 2.7.0 Accepted
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> MAIL FROM:<me@gmail.com>
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250 2.1.0 OK t82sm3105992itb.18 - gsmtp
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> RCPT TO:<me@gmail.com>
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250 2.1.5 OK t82sm3105992itb.18 - gsmtp
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> DATA
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 354  Go ahead t82sm3105992itb.18 - gsmtp
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> hey!
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> .
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 250 2.0.0 OK 1475936526 t82sm3105992itb.18 - gsmtp
Net::SMTP::_SSL=GLOB(0x2af1b78)>>> QUIT
Net::SMTP::_SSL=GLOB(0x2af1b78)<<< 221 2.0.0 closing connection t82sm3105992itb.18 - gsmtp