#!/usr/bin/perl
use strict;
use warnings;
use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;

my $email = Email::Simple->create(
    header => [
        From    => 'XXXXXXXX@gmail.com',
        To      => 'XXXXXXXX@yahoo.com',
        Subject => 'test msg',
    ],
    body => 'Test msg body',
);

my $sender = Email::Send->new(
    {   mailer      => 'Gmail',
        mailer_args => [
            username => 'XXXXXXXX@gmail.com',
            password => 'XXXXXXXX',
        ]
    }
);

eval { $sender->send($email) };
die "Error sending email: $@" if $@;