PERL – How to Send Email

Here is a snippet of PERL code which you can use to send emails from your PERL scripts:

open (MAIL, "|/usr/sbin/sendmail -t ");
print MAIL "From: someFromAddress\@someFromDomain\n";
print MAIL "To: someToAddress\@someToDomain\n";
print MAIL "Content-Type: text/plain\n";
print MAIL "Subject: Very simple email test\n\n";
print MAIL "Body of the message";
close (MAIL);

Replace “someFromAddress\@someFromDomain” with an email address to be displayed in the “from” field of the email. It is important to not omit the backslash in front of the @ character in the email address. Similarly, replace “someToAddress\@someToDomain” with the email address to send the email to. Again don’t forget to escape the @ character in the email address by placing a backslash (\) in front of the @ sign. Also you’ll need to not leave off the “\n” you see in the to, from, and subject lines in the code.

Code