#!/usr/bin/perl
use warnings;
use strict;
use Email::Stuff;
my  $objst = Email::Stuff
        ->to('jophnday@wordsnimages.com')
        ->from('praecipuus@gmail.com')
        ->subject('Test Subject')
        ->text_body('This is a test.');
# This forces Net::SMTP::SSL to be loaded
    $objst->using( 'SMTP', ssl => 1 );
# Which allows us to do this ...
    $IO::Socket::SSL::DEBUG = 1;
my  $rc = $objst->send('SMTP',
        ssl      => 1,
        Host     => 'smtp.gmail.com',
        PeerPort => 465,
        username => 'praecipuus',
        password => 'xx***xx',
        Debug    => 1,
    );