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();