Perlで日本語のメールを送信する方法

#!/usr/local/bin/perl

use strict;
use warnings;

use Jcode;

my $SENDMAIL;
my $sendmail_cmd = "/usr/sbin/sendmail -t";

my $from = "yahoo\@yahoo2.co.jp";	# Fromメールアドレス
my $to = "google\@yahoo2.co.jp";	# あて先のメールアドレス
my $cc = "";
my $subject = "日本語";			# メールの件名
my $message =<<__E_O_F__;		# メールの本文
こんにちは、 $to さん。

さようなら。
__E_O_F__

&Jcode::convert(\$subject, 'jis');	# jisに変換する
$subject = jcode($subject)->mime_encode; # mimeエンコードする
&Jcode::convert(\$message, "jis");	# jisに変換する

open($SENDMAIL, "|$sendmail_cmd") or die "$sendmail_cmd [$!]";

my $text =<<E_O_M;
From: <$from>
To: $to
Cc: $cc
Subject: $subject
Content-Transfer-Encoding: 7bit
Content-type: text/plain;charset="ISO-2022-JP"

$message
E_O_M

print $SENDMAIL $text;

close($SENDMAIL);

chmod +x mail.pl

実行方法

./mail.pl