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();