Perlでgmailからメール送る

最近はEmail::Senderを使うのがおすすめらしい。

use strict;
use warnings;
use utf8;

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

my $sender = Email::Sender::Transport::SMTP::TLS->new(
  host     => 'smtp.gmail.com',
  port     => 587,
  username => $USERID,
  password => $PASSWORD,
);

my $email = Email::Simple->create(
  header => [
    From    => 'kobayashi01234@gmail.com',
    To      => 'kobayashi01234@gmail.com',
    Subject => encode('MIME-Header-ISO_2022_JP', "テストメール"),
  ],
  attributes => {
    content_type => 'text/plain',
    charset      => 'ISO-2022-JP',
    encoding     => '7bit',
  },
  body => encode('iso-2022-jp', "てすと"),
);

sendmail($email, {transport => $sender});

SMTPは派生が多いからtrasnportで色々な送信方法に対応してるのかな。