[sf-perl] perl Mime send timesout

[Richard Reina]

I have tried to get this to work using three different sets of SMTP
settings. Each time the result is the same:

# perl test_mime_simple.pl
SMTP Failed to connect to mail server: Connection timed out
 at test_mime_simple.pl line 18.

Below is my attempt with gmail settings I have also tried with Port => 465.
I seem to not be able to connect with ANY smtp server despite having a
working internet connection.  Any ideas would be greatly appreciated.

Thanks


#!/usr/bin/perl
use MIME::Lite;

$to = 'richard at rushlogistics.com';
$cc = 'gatorreina at gmail.com';
$from = 'gatorreina at gmail.com';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';

$msg = MIME::Lite->new(
                 From     => $from,
                 To       => $to,
                 Cc       => $cc,
                 Subject  => $subject,
                 Data     => $message
                 );

$msg->send('smtp', "smtp.gmail.com", AuthUser=>"gatorreina at gmail.com",
AuthPass=>"mypass" );
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.pm.org/pipermail/sanfrancisco-pm/attachments/20141201/0dbb7a9e/attachment.html>