use strict;
use warnings;
use utf8;
use Encode;
use Email::MIME::Creator;
use Email::MessageID;

my $from = 'from@example.org';

# $from から Message-ID: をつくる
my $msgid = Email::MessageID->new( host => (split /@/, $from)[1]);

# さらに適切なヘッダが入るように修正
my $mail = Email::MIME->create(
    header => [
        From    => $from,
        To      => 'to@example.com',
        'Message-ID' => $msgid->in_brackets,
        Subject => Encode::encode('MIME-Header-ISO_2022_JP', 'コンニチワ'),
    ],
    attributes => {
        charset  => 'ISO-2022-JP',
        encoding => '7bit',
    },
    body_str => '元気でやってるかー?'
);

print $mail->as_string, "\n";


# Email::Send で送信する
my $sender = Email::Send->new({mailer => 'Sendmail',
			       mailer_args => ['-f', $from],});
$sender->send($mail);