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

[$xNeTworKx]

Hallo,

#!/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;

Das mit dem -> »» $!=""; kommt mir sowieso irgendwie spanisch vor. Vielleicht ist es etwas, was ich noch nicht kenne, aber gesehen hab ichs vorher noch nie. Versuch mal den Ausschnitt von mir, das funktioniert ,zumindest auf meinem Server, bestimmt. Ggf. musst du noch den sendmail Pfad ändern.

open (MAIL, "| /usr/sbin/sendmail -t") or die "Cant send mail : $!\n";
   print MAIL "From: [e-mail]\n";
   print MAIL "To: $email\n";
   print MAIL "Subject: $subject\n\n";
   print MAIL "$text\n";
   close MAIL;

$xNeTworKx.