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