send email through a perl script.

[lilly07]

I am running a perl script under linux environment. I am looking for a possibility of sending mail to a set of pepole when something goes wrong. Is is possible to do? Thanks.

[lilly07]

I found a small example as below and tried.

#!/usr/bin/perl
 
my $to='[e-mail]';
my $from='[e-mail]';
my $subject='Low Disk Space';
 
# send email using UNIX/Linux sendmail
open(MAIL, "|/usr/sbin/sendmail -t");
my $out = "testing";
 
 
## Mail Header
print MAIL "To: $to\\n";
print MAIL "From: $from\\n";
print MAIL "Subject: $subject\\n";
 
## Mail Body
print MAIL $out;
 
close(MAIL);

When I execute the code, I get a message as below:

No recipient addresses found in header

How to resolve? Can't I use any public domains like hotmail etc.. or do I have to set up anything in my linux server. Please let me know. Thanks.

[KevinADC]

You need to remove the extra backslashes in these lines:

print MAIL "To: $to\\n";
print MAIL "From: $from\\n";
print MAIL "Subject: $subject\\n";
 

Should be:

print MAIL "To: $to\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
 

Note the two \n\n after subject, that is necessary the way you are doing it.

[numberwhun]

In addition to the example that you found, you can also check out the Net::SMTP module from CPAN. Its also a good way to go.

Regards,

Jeff

[KevinADC]

In addition to the example that you found, you can also check out the Net::SMTP module from CPAN. Its also a good way to go.

Regards,

Jeff

I think they got that suggestion on Devshed.

[eWish]

In this thread I posted some code that would send an email with out the use of additional modules.

--Kevin