use strict;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP::TLS;

use Email::Sender::Simple qw(try_to_sendmail);

my $username = 'xxx@gmail.com';
my $password = 'xxx';

my $to = 'xxx@gmail.com';
my $from = 'yyy@gmail.com';
my $subject = 'Test';

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


my $email = Email::Simple->create(
        header => [
                To      => $to,
                From    => $from,
                Subject => $subject,
        ],
        body => "This message is short, but at least it's cheap.\n",
  );

sendmail($email, { transport => $transport });