perl程序实现发邮件

1、下载发送邮件所需要的lib包。下载地址：http://pan.baidu.com/s/1c2BshP2

2、将上述文件夹放到perl安装目录的lib文件夹中。

3、具体实现的代码如下#!/usr/bin/perluse Net::SMTP;my $mailhost = "smtp.qq.com"; # 发送的stmpmy $mailfrom = '1234567@qq.com'; # 发件邮箱my @mailto = ('7654321@qq.com'); # 收件邮箱my $subject = "下雨了，收衣服了！！！";my $text = "下雨了，收衣服了！！！";my $smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120, Debug => 1);$smtp->auth($mailfrom, 'PASSWORD'); #用户名和密码确定没错foreach my $mailto (@mailto) { $smtp->mail($mailfrom); $smtp->to($mailto); $smtp->data(); #拼写发送的内容 $smtp->datasend("To: $mailto\n"); $smtp->datasend("From: $mailfrom\n"); $smtp->datasend("Subject: $subject\n"); $smtp->datasend("Content-type: text/html;charset=GBK\n"); $smtp->datasend("\n$text\n"); $smtp->dataend();}$smtp->quit;