SMTP Failed to connect to mail server :
at test1.pl line 17

##</code><code>##

#!/usr/bin/perl 
use MIME::Lite; 
$to = 'bhaskarpate24X7@gmail.com'; 
$cc = ''; 
$from = 'bhaskarpatel24X7@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 
); 
#my $mailer = 'Windows 7 Ultimate';
#$msg->send_by_smtp($mailer); # do some error checking
$msg->send; 
print "Email Sent Successfully\n";