Select Code to Download

use MIME::Lite;
my $msg = MIME::Lite->new(
...
  Data     =>"body thing, back slash n test\n, br ing test<br> thats i
+t"
    );
$msg->send(); #this one is line 10

SMTP Failed to connect to mail server: Bad file descriptor
 at C:\Documents and Settings\Administrator\Desktop\perl experiments\m
+ail sender.pl line 10
Press any key to continue . . .

Uncaught exception from user code:
        SMTP Failed to connect to mail server: Bad file descriptor
...
        MIME::Lite::send('MIME::Lite=HASH(0xc9b62c)') called at C:\Doc
+uments and
 Settings\Administrator\Desktop\perl experiments\mail sender.pl line 1
+2
Press any key to continue . . .