use strict;
use warnings;
use MIME::Lite;

my $msg = MIME::Lite->new(
 From     =>'bob@gmail.com',
 To       =>'bob@gmail.com',
 Subject  =>'test'
);

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


##</code><code>##

MIME::Lite::SMTP>>> MIME::Lite::SMTP
MIME::Lite::SMTP>>>   Net::SMTP(2.29)
MIME::Lite::SMTP>>>     Net::Cmd(2.26)
MIME::Lite::SMTP>>>       Exporter(5.58)
MIME::Lite::SMTP>>>     IO::Socket::INET(1.29)
MIME::Lite::SMTP>>>       IO::Socket(1.29)
MIME::Lite::SMTP>>>         IO::Handle(1.25)
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