群发邮件的perl脚本程序

#!/usr/bin/perl


#open M,'../olympic_note/mail_template';
open M,'tongzhi.txt';
@t = <M>;
close M;

open(LIST,'liebiao.txt');
#open(LOG,'>>havesend.olympic.080731');
open(LOG,'>>sent.20100524.log');
while(<LIST>) {
    s/[\r\n]//g;
#       ($username,$email) = split(/\s+/);
    $email = $_;
    print LOG "$email\n";
    # open(MAILER,"|/usr/sbin/sendmail -t -flubingcba\@51.net");
    open(MAILER,"|/usr/sbin/sendmail -t -fAccountAdmin\@51.net");
    print MAILER<<XMXM;
From: 51.NET <AccountAdmin\@aa.net>
To: $email
Subject:关于尽快完成域名注册信息核对的通知

XMXM
    print MAILER "@t";
    close(MAILER);
    sleep(1);
}
close LOG;
close LIST;

注释：tongzhi.txt 为邮件内容 ， 编写完后 用iconv -c -f utf8 -t gb2312 tongzhi2.txt> tongzhi.txt 转换下文件编码，解决乱码问题
         liebiao.txt 为邮件地址列表，一行一个
         sent.20100524.log    日志