use 5.012;
use warnings;
use utf8;
use Data::Dumper;
binmode STDOUT, ':encoding(UTF-8)';

# メールは送れるみたいなので、スクリプトからの送信用
# アカウントを用意する
# 安全性のところを下げる
# 用意ができたら、twitterのあかうんともとる


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

my $USERID      = '';
my $PASSWORD    = '';
my $MAILADDRESS = '';
my $ATESAKI     = '';

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

use Email::MIME;
my $email = Email::MIME->create(
    header => [
        From    => $MAILADDRESS,
        To      => $ATESAKI,
        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});