Problem with sending email using MIME Lite
I have written the following perl code to send email:
$MIME::Lite::DEBUG = 1;
my $theSubject = "test";
my $theData = "<h1>This is test email sent by Perl Script</h1>";
my $theEmail = MIME::Lite->new(
$theEmail->send( "smtp", "smtp.ptcl.com", AuthUser=>'username' , AuthPass=>'password');
However its not working and i am getting following errors:
Somebody plz help me in this regard. I am working on windows 7.
D:\Zulfi\PERL MAIN FOLDER>perl email1.pl
SMTP Failed to connect to mail server: Bad file descriptor
at email1.pl line 20.
D:\Zulfi\PERL MAIN FOLDER>