perl Email::Sender 发邮件

在运维工作中，有很多地方需要发送邮件的方式进行监控。

#!/usr/bin/perl   #perl的安装目录
use strict;
use warnings;

use Email::Simple;
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;

my $transport = Email::Sender::Transport::SMTP::TLS->new(
    host     => 'smtp.163.com',
    port     => 25,                        -- 对应的amtp的端口号
    username => 'XXXX@163.com',  -- 邮箱地址
    password => 'XXXX' ;                     -- 这是授权码，不是邮箱真正的密码，具体请去百度
);


my $message = Email::Simple->create(
    header => [
        From           => 'XXXX@163.com',
        To             => '666666666@qq.com',
        Subject        => 'Sent from perl Test!',
    ],
    body => 'Sent from perl Test!',
);


sendmail( $message, {transport => $transport} );