Perlで日本語メール送信(2)

id:mikeda:20090115をEncodeモジュールでかきなおし。

#! /usr/bin/perl

use Encode;
use utf8;

$to = 'mikeda@sample.to';
$from = encode('MIME-Header-ISO_2022_JP', 'そうしんもと')
  . '<mikeda@sample.from>';
$subject = encode('MIME-Header-ISO_2022_JP', 'だいめい');
$body = encode('iso-2022-jp', 'ほんぶん');

open MAIL, "| /usr/sbin/sendmail -i -t";
print MAIL <<END;
To: $to
From: $from
Subject: $subject
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP

$body
END

Encodeモジュール、奥が深そう。ストリームの使い方とかちゃんと勉強しよう。