$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From    => $fromaddress,
                To      => $toaddress,
                Subject => $subject,
             })
      or die "Can't open: $!\n";
print $mailer $body;
$mailer->close();