通过smtp验证发送邮件的perl脚本
#!/usr/bin/perl -wuse 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;
页:
[1]