use strict;
use warnings;
use Email::Simple;
use Net::SMTP::TLS;
#use Email::Sender::Transport::SMTP::TLS;

#my $mailer = Email::Sender::Transport::SMTP::TLS->new(
#        host => 'smtp.gmail.com',
#        port => 465,
#        username => 'username@gmail.com',
#        password => 'password',
#    );

    my $sender = new Net::SMTP::TLS(
        Hello => 'smtp.gmail.com',
        Port => 465,
        User => 'username@gmail.com',
        Password => 'password',
    );
    
    my $message = Email::Simple->create(
        header => [
            From    => 'you@gmail.com',
            To      => 'someone@example.com',
            Subject => 'Test Gmail',
        ],
        body => 'Content.',
    );
    
    
#    eval {
#        $mailer->send($message, {
#            from => 'you@gmail.com',
#            to   => [ 'someone@example.com' ],
#        } );
#    };
#    die "Error sending email: $@" if $@;

$sender->mail('you@gmail.com');
$sender->to('someone@example.com');
$sender->data;
$sender->datasend($message);
$sender->datasend;
$sender->quit;