Sending mail with Perl mail script

Q. How can I send an email with perl?

A. With the help of sendmail you can send an email from your web based feedback form. You will need to indicate the path to the mail program, Sendmail. Usually the path to Sendmail is /usr/sbin/sendmail. Here is sample script that can send an email to your account or to end user. Make sure you setup

$from= ‘[email protected]’;
$subject=’YOUR SUBJECT’;

Here is sample script to sending an email using perl [ Download script ]:

print "Content-type: text/htmlnn";
$title='Perl Mail demo';
$from= '[email protected]';
$subject='YOUR SUBJECT';
open(MAIL, "|/usr/sbin/sendmail -t");
## Mail Header
print MAIL "To: $ton";
print MAIL "From: $fromn";
print MAIL "Subject: $subjectnn";
## Mail Body
print MAIL "This is a test message from! You can write your
mail body text heren";
print "<html><head><title>$title</title></head>n<body>nn";
## HTML content sent, let use know we sent an email
print "<h1>$title</h1><p>A message has been sent from $from to $to</p></body></html>";

Upload script Upload script to your web hosting cgi-bin directory. Then test is by typing url. For example

Caution: Notice that the subject line in the above script ends with two n (new line) characters. These characters are required to separate the email header from the email body with a blank line. Do not remove them.

Posted by: SXI ADMIN

The author is the creator of SXI LLC and a seasoned sysadmin, DevOps engineer, and a trainer for the Linux operating system/Unix shell scripting. Get the latest tutorials on SysAdmin, Linux/Unix and open source topics via RSS/XML feed or weekly email newsletter.