perl Mail::Sender模块发送邮件

 #!/usr/bin/perl -w
 use strict;
 use Mail::Sender;

 my $count = ;
 while(){
 my $sender = Mail::Sender->new({
     smtp => 'smtp.163.com',
         #这里以163为例
     from => '这里写你的163邮箱地址:username@163.com',
     auth => 'LOGIN',
     authid => '这里写你的163邮箱用户名:username',
     authpwd => '这里写你的邮箱密码:password'}
 ) or die "Cannot send mail:$!\n";

 my $messages = 'hello这里是要发送的内容';

     $sender->MailMsg({
         to => '要发送到哪个邮箱:test@qq.com',
         subject => '邮箱标题',
         msg => $messages}
     );
 $sender->Close();
 print "第$count封发送完毕!\n";
 $count++;
 }

这里用了一个while(1)测试一直发送
perl默认没有安装Mail::Sender模块， 要自行安装