use strict;

use Mail::Mailer;

my $from_address = "perlmonk";
my $to_address = "user\@localhost";
my $subject = "hi";
my $body = "hello";

my $mailer = Mail::Mailer->new("sendmail");
$mailer->open({ 
    From    => $from_address,
    To      => $to_address,
    Subject => $subject,
}); 
print $mailer $body;
$mailer->close();

##</code><code>##

open(MAIL, "|/usr/lib/sendmail -oi -t -odq") || die "Can't open sendmail: $!";
print MAIL <<MESSAGE;
From: Your name <emailaddress\@blah.com>
To: Recipient name <email address\@blah2.com>
Subject: Mailing with Perl

this is easy.
MESSAGE
close(MAIL);