幫朋友寫的。
　　本程序從一個文本文件中讀取郵件地址和一些需要的記錄。
　　activeperl 5.8 + winxp下通過。
　　#!/usr/bin/perl
　　use Net::Smtp;
　　
　　#郵件發送服務器地址
　　$smtp_server = 'smtp.126.com';
　　
　　#發件人地址
　　$from = 'sleetdrop@126.com';
　　
　　#郵件標題
　　$title = '測試郵件一個，接好，別砸到!';
　　
　　#發一封歇息多久
　　$delay = 1;
　　
　　#包含收件人列表及可變信息的文本文件
　　#格式為：用戶名，密碼，詳細信息
　　#請把它放在當前目錄下，并把它命名為list.txt
　　$f_list='list.txt';
　　open(FILE,$f_list) || die "Can not open list file/n";
　　while(<FILE>){
　　chomp;
　　($usr,$passwd,$detail) = split(/,/);
　　

　　
　　#如果您的列表里直接存儲的是email地址，請用如下一句替換上面一句
　　$to = $usr;
　　
　　#根據列表文件構建郵件內容。
　　#因為這里的heredoc要求頂格所以不能正?？s進
　　$msg=<<HTML;
　　$detail，您好。
　　
　　我們的郵件服務器地址已經變為xxxxxxxx.
　　您的用戶名為$usr密碼為$passwd
　　請盡快登陸修改。
　　由于本次更改給您工作帶來的不便在此表示歉意。
　　謝謝您的支持。
　　
　　HTML
　　
　　print "I am sending Email No.".($cnt+=1)." to ".$to."....../n";
　　&gingerMail($smtp_server,$from,$to,$title,$msg);
　　print "Email No.".$cnt." has been sent to: ".$to."/n";
　　sleep($delay);
　　}
　　
　　close(FILE);
　　print "/n......All Finished!!!";
　　
　　###########################
　　#
　　#例程gingerMail
　　#參數列表
　　#$smtp_server發郵件smtp服務器地址
　　#$from發件人地址
　　#$to收件人地址
　　#$title郵件標題
　　#$msg郵件內容
　　#
　　###########################
　　sub gingerMail{
　　my($smtp_server,$from,$to,$title,$msg) = @_;
　　$smtp = Net::SMTP->new($smtp_server);
　　#如果您的服務器需要認證，請在下面輸入用戶名和密碼。
　　#需要Auth-SASL模塊的支持
　　#windows下可以用ppm安裝，unix下請用CPAN安裝。
　　$smtp->auth('sleetdrop','xxxxxxxxx');
　　$smtp->mail($from);
　　$smtp->to($to);
　　$smtp->data();
　　$smtp->datasend('From: '.$from);
　　$smtp->datasend("/n");
　　$smtp->datasend('To: '.$to);
　　$smtp->datasend("/n");
　　$smtp->datasend('Subject: '.$title);