perl发送邮件，简单的代码

大佬教程收集整理的这篇文章主要介绍了perl发送邮件，简单的代码，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

use Net::SMTP;
    $smtp = Net::SMTP->new('smtp.126.com');
    $smtp->auth('[email protected]','123456789') || die "Auth Error! $!";
#这个用户名和密码是假，请添加自己的哈
    $smtp->mail('[email protected]');
    $smtp->to('[email protected]');
    $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();

大佬总结

以上是大佬教程为你收集整理的perl发送邮件，简单的代码全部内容，希望文章能够帮你解决perl发送邮件，简单的代码所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。