sendmail.pl

#!/usr/bin/perl

use strict;
use warnings;
use Email::MIME;
use Email::Send;
use utf8;

my $sender = Email::Send->new({mailer => 'Sendmail'});
my $email = Email::MIME->create(
  header => [
    From => 'hoge@example.com',
    To   => 'foo@example.com',
  ],  

  attributes => {
    charset  => 'iso-2022-jp',
    encoding => '7bit',
  },  
  body_str => <<'...',
日本語でもok
...
);

$sender->send($email) or die "send() failed";