perl 发送邮件 Net::SMTP_auth

#!/usr/bin/perl -wuse strict;use Net::SMTP_auth;my $mailhost = 'smtp.163.com';my $mailfrom = '[e-mail]';my @mailto = ('[e-mail]');my $user = '[e-mail]';my $passwd = '14000000014';my $subject = 'hello';#my $text#my $f_list = '/home/sysadmin/scp.log';#open(FILE, $f_list) or die "Can not open list file\n";#undef $/;my $text = "content";my $smtp = Net::SMTP_auth->new($mailhost, Timeout=>120, Debug => 1) or die "Error.\n";$smtp->auth('LOGIN', $user, $passwd);foreach my $mailto(@mailto) {$smtp->mail($mailfrom);$smtp->to($mailto);$smtp->data();$smtp->datasend("To: $mailto\n");$smtp->datasend("Frommailfrom\n");$smtp->datasend("Subject: $subject\n");$smtp->datasend("\n");$smtp->datasend("$text\n\n");$smtp->dataend();}$smtp->quit;