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