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.0\n");

       $smtp->datasend("Content-Type: text/html; charset=us-ascii\n");

       $smtp->datasend("To: $email_receivers\n");

       $smtp->datasend("Subject: hello\n");

       $smtp->datasend("\n\n\n");

       $smtp->datasend("$email_body\n");

       $smtp->dataend();

       $smtp->quit;

}