$smtp->mail($absender); $smtp->to($empfaenger); $smtp->data(); $smtp->datasend("Subject: $betreff\n"); $smtp->datasend("To: $empfaenger\n"); $smtp->datasend("From: $absender\n"); $smtp->datasend("Date: Mon, 17 May 2004 16:41 +0200\n"); $smtp->datasend("\n"); open(BODY, "$nachricht"); @text=; close(BODY); foreach (@text) { $smtp->datasend("$_"); } $smtp->datasend("\n"); $smtp->dataend(); $smtp->quit;