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郵箱地址:[e-mail]',
    auth => 'LOGIN',
    authid => '這里寫你的163郵箱用戶名:username',
    authpwd => '這里寫你的郵箱密碼:password'}
) or die "Cannot send mail:$!\n";
 
my $messages = 'hello這里是要發送的內容';
 
    $sender->MailMsg({
        to => '要發送到哪個郵箱:[e-mail]',
        subject => '郵箱標題',
        msg => $messages}
    );
$sender->Close();
print "第$count封發送完畢!\n";
$count++;
}

這里用了一個while(1)測試一直發送
perl默認沒有安裝Mail::Sender模塊， 要自行安裝