Perl -> Sendmail -> Fehler: "Illegal Seek"

[Andreas]

Hi,

bei mir klappt das Versenden von eMails via Perl -> Sendmail nicht mehr. Dieses einfache Testscript erzeugt den Fehler:

#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "Sendmail öffnen...";
$!="";
open(MAIL,"|/usr/lib/sendmail -t");
print "Fehlermeldung: $!<br>\n";
print "Sende Mailheader...<br>\n";
print MAIL "To: [e-mail]\n";
print MAIL "From: [e-mail]\n";
print MAIL "Subject: Testmail\n\n";
print "Sende Mailbody...<br>\n";
print MAIL "Test\n\n";
print "Schliesse Sendmail...";
$!="";
close(MAIL);
print "Fehlermeldung: $!<br>\n";
exit;

Ausgabe des Scripts:

Sendmail öffnen...Fehlermeldung: Illegal seek
Sende Mailheader...
Sende Mailbody...
Schliesse Sendmail...Fehlermeldung:

Die eMail wird nicht verschickt.Wer kennt eine Lösung für dieses Problem?

Ciao
Andreas