NET::SMTP zeigt falschen Empfänger

[Pitt]

hi,

ich habe da ein keines problem mit modul NET::SMTP.
wenn ich jetzt eine email versende und sie nem emailprogramm abrufe, steht da wo der absender stehen sollte die empfänger adresse.

also es sieht dann so aus:

Absender:  [e-mail]
Empfänger: [e-mail]

der quellcode;

#!/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("To: [e-mail]\n");
    $smtp->datasend("Subject: Hallo\n");
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();

$smtp->quit;

was ist falsch an dem prog