{
use Mail::Mailer;
use strict;
 my ($to, $from, $subject, $body) = ( @_);
 my $mailer = Mail::Mailer->new("sendmail");
 $mailer->open({
    From    => $from,
    To      => $to,
    Subject => $subject,
});
print $mailer $body;
$mailer->close();