perl Mail::Sender发邮件

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

my $pass='***';

my $sender= new Mail::Sender{
    smtp=> 'smtp.163.com',
    from=>'***@126.com',
    auth=>'LOGIN',
    authid=>'***@126.com',
    authpwd=> $pass,
};
$sender->MailFile({
    to=>'test@126.com',
    #cc=>'test1@126.com,test2@126.com',
    subject=>'test',
    msg=>"Message",
    file=>'*.txt' ,
         }) or die "failed";
$sender->Close();
 

转载于:https://blog.51cto.com/where/994858