use Mail::Mailer;

$mailer=Mail::Mailer->new("sendmail");
$mailer->open ({  From=> <from address here>,
                  To=> <to address here>,
                  Subject=> <subject here>,
               }) or die "cant open mailer\n";

$body=<>;
print $mailer $body;
$mailer->close();