perl 使用Net::SMTP 发邮件

use Net::SMTP;

my $email_server = 'smtp.163.com';
my $email_receivers = 'aaa@163.com';
my $email_sender = ‘aaa@163.com';

$email_body = ’hello‘；

sub sendMail

{

???????my $smtp = Net::SMTP->new($email_server);

???????$smtp->mail($email_sender);

??????????????my @receivers = split(";",$email_receivers);

??????????????$smtp->recipient(@receivers);

???????$smtp->data();

???????$smtp->datasend("MIME-Version: 1.0n");

???????$smtp->datasend("Content-Type: text/html; charset=us-asciin");

???????$smtp->datasend("To: $email_receiversn");

???????$smtp->datasend("Subject: hellon");

???????$smtp->datasend("nnn");

???????$smtp->datasend("$email_bodyn");

???????$smtp->dataend();

???????$smtp->quit;

}