NET::SMTP zeigt falschen Empfänger

[Pitt]

Das klingt, als ob du etwas falsch machst... Zeige nochmals den überarbeiteten Code.

hier der code:

#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new('mailto.t-online.de');

$smtp->mail("[e-mail]");
    $smtp->to("[e-mail]");

$smtp->data();
    $smtp->datasend("From: [e-mail]\n");        ###das hier eingefügt
    $smtp->datasend("To: [e-mail]\n");
    $smtp->datasend("Subject: Hallo\n");
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();

$smtp->quit;