use Mail::Mailer;

$mailer = Mail::Mailer->new("sendmail");
$mailer->open({ From    => $from,
                To      => $to,
                Subject => $sub,
              })
    or die "[*]error: $!\n";
print $mailer $body;
$mailer->close();