Select Code to Download

Select or download this

use strict;
use warnings;
...
MIME::Lite->send('smtp', 'smtp.googlemail.com', Port=>'465', Timeout=>
+ 60,
 Debug=>1, AuthUser=>'bob', AuthPass=>'123456');
$msg->send();

Select or download this

MIME::Lite::SMTP>>> MIME::Lite::SMTP
MIME::Lite::SMTP>>>   Net::SMTP(2.29)
...
MIME::Lite::SMTP=GLOB(0x840770c): Timeout at /usr/lib/perl5/site_perl/
+5.8.8/MIME/Lite.pm line 2865
SMTP Failed to connect to mail server: Bad file descriptor
 at Monks.prl line 14