perl Mail::Sender模块发送邮件

#!/usr/bin/perl -w
use strict;
use Mail::Sender;
 
my $count = 1;
while(1){
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:$!
";
 
my $messages = 'hello这里是要发送的内容';
 
    $sender->MailMsg({
        to => '要发送到哪个邮箱:test@qq.com',
        subject => '邮箱标题',
        msg => $messages}
    );
$sender->Close();
print "第$count封发送完毕!
";
$count++;
}

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