通过smtp验证发送邮件的perl脚本

#!/usr/bin/perl -w

use strict;

use Net::SMTP;

use Authen::SASL;

BEGIN {

push (@INC,'/usr/lib/perl5/5.8.8/Net/ ');

}

my $from = 'test@tita.com';

my $date = '2012-03-15 23:20:22';

my $to = 'lubingnba@sina.com';

my $username = 'test@tita.com';

my $passwd = 'lubing';

my $subject = 'beisen is ok';

my $smtp = Net::SMTP->new('mail.beisen.cn');

$smtp->auth($username,$passwd) or die "Could not authenticate $!";

$smtp->mail($from);

$smtp->to($to);

$smtp->data();

$smtp->datasend("Date:$date\n");

$smtp->datasend("From:$from\n");

$smtp->datasend("To: $to\n");

$smtp->datasend("Subject: $subject\n");

$smtp->datasend("fdjklasjdflksdajflkjsdaklfjsalkjkidfjklasjflksdaj");

$smtp->dataend();

$smtp->quit;
本文出自 “决胜千里之外” 博客，谢绝转载！