使用perl模块Net::SMTP发送普通邮件

#!/usr/bin/perl
use strict;
use warnings;

use Net::SMTP;

my $host="smtp.wo.com.cn";
my $from="test@wo.com.cn";
my @to=('test1@126.com','test2@126.com');
my $subject="welcom to homepage";
my $text = "do it now";

my $user="test@wo.com.cn";
my $pwd="12345670";

my $smtp=Net::SMTP->new($host,Hello=>'localhost',Timeout=>120,Debug=>1);

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

foreach my $t_mail(@to){
   $smtp->mail($from);
   $smtp->to($t_mail);

   $smtp->data();

   # set header
   $smtp->datasend("To: $t_mailn");
   $smtp->datasend("From: $fromn");
   $smtp->datasend("Reply-To: $t_mailn");
   $smtp->datasend("Subject:$subjectn");
   $smtp->datasend("n");
   # set body
   $smtp->datasend("$text nn");

   $smtp->dataend();
}

$smtp->quit();