とりあえず?送信するだけであれば、以下の通り。
※encoding等のメールヘッダは、どのように指定するの?
※Email::Senderへの依存が大きいようなので、そのまま?Email::Senderを使っては?
と思いますが、とりあえず...
#!/usr/local/bin/perl use strict; use warnings; use utf8; use Email::Stuffer; use Email::Sender::Transport::SMTP::TLS; use Data::Dumper; main(); sub main { my $msg_body =<<EOF; これは、テストです。 Email::Stuffer と Email::Sender::Transport::SMTP::TLS における 機種依存文字のテストです。 アイウエオ ガギグゲゴ ㈱ 郄 粼 ① ② EOF my $smtp = Email::Sender::Transport::SMTP::TLS->new( host => 'smtp.gmail.com', port => 587, username => 'ないしょ@gmail.com', password => 'ないしょ' ); # gmailでsmtpするなら、アプリ専用passwdを発行しましょう # https://security.google.com/settings/security/apppasswords Email::Stuffer ->text_body($msg_body) ->subject('TEST - Email::Stuffer') ->from('ないしょ@gmail.com') ->transport( $smtp ) ->to('ないしょ') ->send_or_die; } 1;