open (MAIL, "|$MailPgm $Mail") || die "Fehler beim Zugriff auf $MailPgm!\n";

my $MailPgm = '/usr/sbin/sendmail -t';
 open (MAIL, "|$MailPgm") || die "Fehler beim Zugriff auf $MailPgm!\n";

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();