#!/usr/local/bin/perl58 -w

    use Net::SMTP;

    $smtp = Net::SMTP->new('127.0.0.1',  Debug   => 1);

    $smtp->auth ( 'test', 'testtest' );
    $smtp->mail('test@127.0.0.1');
    $smtp->to('test@127.0.0.1');

    $smtp->data();
    $smtp->datasend("To: postmaster <test\@127.0.0.1>\n");
    $smtp->datasend("Date: " . localtime(time) . "\n"); # Achtung! Das Datumsformat ist falsch!
    $smtp->datasend("\n");
    $smtp->datasend("A simple test message\n");
    $smtp->dataend();

    $smtp->quit;