perl发送邮件，简单的代码

use Net::SMTP;
    $smtp = Net::SMTP->new('smtp.126.com');
    $smtp->auth('abcdef@126.com', '123456789') || die "Auth Error! $!";
#这个用户名和密码是假，请添加自己的哈
    $smtp->mail('abcdef@126.com');
    $smtp->to('18301274020@163.com');
    $smtp->data();  # begin the data
     $smtp->datasend("From: 曾---\n");
     $smtp->datasend("To:赵---\n");
     $smtp->datasend("Subject:好吧，我乱写的\n");
     #用空行隔开，这样上面的邮件系统会根据上面的From和To来判断是 发件人收件人，还有主题
     $smtp->datasend("\n");
     $smtp->datasend("A simple test message\n");
    $smtp->dataend();
    $smtp->quit();