Mailtags f. Sendmail im Body

[Kurti]

Moin Leuts!

Ich habe folgendes Problem:

Dieses Script versendet zwar Mails an den entsprechenden Empfaenger, jedoch wird nur das To:-Tag in den Haeder der Mail geschrieben. From:-Tag und Subject werden in den Body geschrieben. :-()

Achja, $currentadr wird in einer while-schleife aus einer Datei gelesen...

Weiss jemand Rat?  Hab hier schon rumprobiert, mit direkten PRINT-Anweisungen, aber alles hilft nix..

In anderen Scripts die genauso aufgebaut sind hauts hin..

Waere dankbar fuer Hilfe!

Kurti

===============cut===================

$mailprog   = "/usr/sbin/sendmail";
$subject    = $Formular{'betr'};
$adress     = $Formular{'adressen'};
$text       = $Formular{'text'};
$sendername = "DanFun NewsletterBot";
$sendermail = '[e-mail]';

open(MAIL,"|$mailprog -t") or die "Fehler beim Oeffnen von SENDMAIL $!";
print MAIL <<"[END]";
To: $currentadr
From: $sendermail ($sendername)
Subject: $subject

$text

[END]
close(MAIL) or die "Fehler beim Versenden der Mail: $!";

===============cut===================