使用PERL发送邮件

                          使用PERL发送邮件
     PERL功能很强大，在日常的管理中，经常用来监视系统，然后自动发送邮件给管理员，脚本如下：

use Net::SMTP;
##还要安装sasl认证模块
$smtp=Net::SMTP->new("邮件服务器地址",Debug=>1)；
##debug等于0则不输出信息

$smtp->auth("frankzou\@sz.cntrans.cn","邮箱密码");
$smtp->mail("frankzou\@sz.cntrans.cn");
$smtp->to("frankzou\@sz.cntrans.cn");

$smtp->data();##开始邮件传送
$smtp->datasend("To: frankzou\@sz.cntrans.cn\n");
$smtp->datasend("From: frankzou\@sz.cntrans.cn\n");
$smtp->datasend("Subject: testing\n");
$smtp->datasend("\n");
$smtp->datasend("This is a mail\n");
$smtp->dataend();##送出邮件结速标志
$smtp->quit();