Select Code to Download

#!/usr/bin/perl
use strict;
...

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

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

$ = 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>
...
. = 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 fro
+m file `./s2.pl' line 26<br>
. = eval {...} called from file `./s2.pl' line 26<p></p>

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