Send email in ActivePerl using SMTP

[yzhang1908]

I tried the following to use SMTP to send email:


   use Net::SMTP;
   $optServer = 'luxn.com';
   $optFrom = "[EMAIL PROTECTED]";
   $optTo = "[EMAIL PROTECTED]";
   $smtp = Net::SMTP -> new ("luxn.com");
   $smtp -> mail($optFrom);
   $smtp -> to ($optTo);

   $smtp -> data();

   Send the Header

   $smtp -> datasend ("To: [EMAIL PROTECTED]\n");
   $smtp -> datasend ("From: [EMAIL PROTECTED]\n");
   $smtp -> datasend ("\n");

   Send the body

   $smtp -> datasend("hello, world!\n");
   $smtp -> dataend();
   $smtp -> quit;


It say:

Can't call method "mail" on an undefined value at 
mailtest.pl line 8

line 8 is:    $smtp -> mail($optFrom);

I tried: $smtp -> mail('[EMAIL PROTECTED]'); it did not help.

What might be wrong here?


Thanks,
Yi Zhang 

_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs