#!/usr/bin/perl

use Net::SMTP;

$empfaenger = 'xxxxx@yahoo.de';
$absender = 'yyyy@yahoo.de';
$betreff = 'Betreff';
$user = 'username';
$pw = 'userpw';

#  $smtp = Net::SMTP->new('mx4.mail.yahoo.com');
 $smtp = Net::SMTP->new('smtp.mail.yahoo.com');

 $smtp->auth($user, $pw);

 $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 2003 13:41 +0200\n");
 $smtp->datasend("\n");
 $smtp->datasend("Test\n");
 $smtp->datasend("\n");

 $smtp->dataend();

 $smtp->quit;