use strict;
use warnings;
use utf8;
use Encode;
use Email::MIME::Creator;
use Email::Sender::Simple qw(sendmail);
my $mail = Email::MIME->create(
header => [
From => 'from@example.com',
To => 'to@example.com',
Subject => Encode::encode('MIME-Header-ISO_2022_JP', 'コンニチワ'),
],
attributes => {
charset => 'ISO-2022-JP',
encoding => '7bit',
},
body_str => '元気でやってるかー?'
);
sendmail($mail, {from => 'bounce@example.com'});