sudo perl -MCPAN -e 'install Email::Send::Gmail'

##</code><code>##

#!/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 $@;

##</code><code>##

Error sending email: Email::Send::Gmail: error connecting to server 
smtp.gmail.com at /Library/Perl/5.8.8/Email/Send.pm line 253
##</code><code>##

$ = IO::Socket::INET::_error(ref(Net::SMTP::SSL), '', '') called from file `/System/Library/Perl/5.8.8/IO/Socket/INET.pm' line 111<br>
$ = IO::Socket::INET::configure(ref(Net::SMTP::SSL), ref(HASH)) called from file `/System/Library/Perl/Extras/5.8.8/IO/Socket/SSL.pm' line 97<br>
$ = IO::Socket::SSL::configure(ref(Net::SMTP::SSL), ref(HASH)) called from file `/System/Library/Perl/5.8.8/darwin-thread-multi-2level/IO/Socket.pm' line 48<br>
$ = IO::Socket::new('Net::SMTP::SSL', 'PeerAddr', 'smtp.gmail.com', 'PeerPort', 465, 'LocalAddr', undef, 'LocalPort', undef, 'Proto', 'tcp', 'Timeout', 120) called from file `/System/Library/Perl/5.8.8/IO/Socket/INET.pm' line 32<br>
$ = IO::Socket::INET::new('Net::SMTP::SSL', 'PeerAddr', 'smtp.gmail.com', 'PeerPort', 465, 'LocalAddr', undef, 'LocalPort', undef, 'Proto', 'tcp', 'Timeout', 120) called from file `/Library/Perl/Updates/5.8.8/Net/SMTP.pm' line 41<br>
$ = Net::SMTP::new('Net::SMTP::SSL', 'smtp.gmail.com', 'Port', 465, 'Debug', 0) called from file `/Library/Perl/5.8.8/Email/Send/Gmail.pm' line 37<br>
. = Email::Send::Gmail::send('Email::Send::Gmail', ref(Email::Simple), 'username', 'XXXXXXXX@gmail.com', 'password', 'XXXXXXXX') called from file `/Library/Perl/5.8.8/Email/Send.pm' line 253<br>
. = Email::Send::_send_it(ref(Email::Send), 'Gmail', ref(Email::Simple)) called from file `/Library/Perl/5.8.8/Email/Send.pm' line 167<br>
. = Email::Send::send(ref(Email::Send), ref(Email::Simple)) called from file `./s2.pl' line 26<br>
. = eval {...} called from file `./s2.pl' line 26<p></p>

##</code><code>##

SSL.pm version    = 0.999<br>
Socket.pm version = 1.29<br>
INET.pm version   = 1.29<br>
SMTP.pm version   = 2.31 <br>
Gmail.pm version  = 0.33<br>
Send.pm version   = 2.198<br>