Sample Perl Script Mail Send (SMTP) Example For Linux

Here is an example perl script to send email from a Linux box.

VERY IMPORTAT: @ symbol in this file MUST be escaped as \@.
for e.g. if you want to hardcode an email id say test@mydomain.com, the email id must be specified as test\@mydomain.com

disclaimer: I have been using this on CentOS 5 systems with perl v5.8.8.

#!/usr/bin/perl
#######################################################
#######################################################
#### The parameters in this file are written by   #####
#### script Createmailscriptattach                #####
#### This program takes 4 arguments               #####
#### 1) Toaddress ,2)FromAddress,3) message       #####
#### 4)subject 5)cc                               #####
#######################################################
#######################################################
use MIME::QuotedPrint;
use MIME::Base64;
use Net::SMTP;

$authenabled = 1;
$mailserver = "mail.mymailserver.com";
$username = "useridforsmtpauthentication";
$password = "passwordforauthentication";
$localhostname = "myfqdn";
$port = 25;
$time = `date`;

$to = $ARGV[0];
$from  = $ARGV[1];


$message  = $ARGV[2];
$sub  = $ARGV[3];
$cc= $ARGV[4];



$smtp = Net::SMTP->new("$mailserver",
                    Hello => "$localhostname",
                    Timeout => 60,
                Port => "$port",
                        Debug => 1);

if ( $authenabled eq 1 )
{
$smtp->datasend("AUTH LOGIN\n");
$smtp->response();

$smtp->datasend(encode_base64("$username") );
$smtp->response();

$smtp->datasend(encode_base64("$password") );
$smtp->response();
}

$smtp->mail("$from");
$smtp->to("$to");
if ($cc ne "") {
$smtp->cc("$cc");
}

$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
if ($cc ne "") {
$smtp->datasend("CC: $cc\n");
}
$smtp->datasend("Subject: $sub\n");
$smtp->datasend("Date: $time\n");

$smtp->datasend("\n");
$smtp->datasend("$message");
$smtp->dataend();
$smtp->quit();