use Net::SMTP;
use MIME::Base64;

$usr_name="ichichcih";
$usr_pwd="geheim";
$nachricht = "warnings.txt";
$absender = "ichichcih\@yahoo.de";
$empfaenger = "yyyyyy\@yahoo.de";
$smtpserver = "smtp.mail.yahoo.com";
$hostname = "localhost.tux";

sub mail {

# local var:   
$usr_name = encode_base64("$usr_name",'');
my $usr_pwd = encode_base64("$usr_pwd",'');
my $nachricht = "$nachricht";
my $absender = "$absender";
my $betreff = "test";
my $empfaenger = "$empfaenger";
my $smtpserver = "$smtpserver";
my $hostname = "$hostname";

# SMTP-AUTH:
my $smtp = Net::SMTP->new($smtpserver, Hello => $hostname);
my $result = $smtp->command('AUTH','LOGIN');
my $answer = $smtp->getline();
$result = $smtp->command($usr_name);
$answer = $smtp->getline();
# 334 UGFzc3dvcmQ6
$result = $smtp->command($usr_pwd);
$answer = $smtp->getline();
# 235 Authentication succeeded


# Main:

    $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 20:22 +0200\n");
    $smtp->datasend("\n");
    $smtp->datasend("$nachricht");
  
	$smtp->datasend("\n");
	    
    $smtp->dataend();
    $smtp->quit;

print "mail send...done\n";

}

mail();