利用Net::smtp发送邮件

利用Net::smtp发送邮件
需要: Net::SMTP Net::SMTP_auth

[quote]
#!/usr/bin/perl
use strict;
use warnings;
use Net::SMTP;

my $mailhost='smtp.163.com'; #Server .
my $mailfrom='my_mail@163.com'; #地址
my @mailto=('post_a@163.com','post_b@163.com'); #发送的地址列表
my $subject='这个是主题';
my $text='这个是内容的';

my $smtp=Net::SMTP->new($mailhost,Timeout=>120,Debug=>1) or die "Error.\n";
$smtp->auth('user','passwd'); #验证,需要用户和密码

foreach my $mailto(@mailto) {
$smtp->mail($mailfrom);
$smtp->to($mailto);

$smtp->data();

$smtp->datasend("To: $mailto\n");
$smtp->datasend("From:$mailfrom\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");

#Message
$smtp->datasend("$text\n\n");

$smtp->dataend();
}
$smtp->quit;
[/quote]

利用这代码 发送的邮件不.
利用这代码 发送的邮件不能收到，请给予答复 谢谢