Shell Programming and Scripting

open(MAIL, "| $sendmailpath -t") || print "Error Opening mail: $!";
print MAIL "To: my\@e-mail.com";
print MAIL "Reply: $sender_mail";
print MAIL "Subject: $sender_subj";
print MAIL "\n";
print MAIL "$sender_msg";
close MAIL || print "Error Closing mail: $!";

#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new("recipent.server.com",Hello => 'yourdomain.com');
$smtp->mail("fromyou@yourdomain.com");
$smtp->to("user1@server.com");
$smtp->cc("foo@server.com");
$smtp->data;

$smtp->datasend("From: fromyou\@yourdomain.com");
$smtp->datasend("To: user1\@server.com");
$smtp->datasend("Subject: This is a test");
$smtp->datasend("\n");

$smtp->datasend("Body Of The Mail");

$smtp->dataend;
$smtp->quit;