メールを取り込んで、MIMEエンコードされたSubjectを直して表示

$strには、Subject行が入っているとして、

use Jcode;
my $jconv=Jcode->new($str);
my $decoded=$jconv->mime_decode->euc;

で$decodedにeucの文字列に変換されて出てきます。

てっとりばやく
my $decoded = Jcode->new($str)->mime_decode->euc;

逆の場合
use Jcode;
use MIME::Base64;

my $encoded='=?ISO-2022-JP?B?'.MIME::Base64::encode_base64(jcode($target,&Jcode::getcode($target))->iso_2022_jp,'').'?=';

モジュールメモのJcode.pmを参照

my $enc = jcode($from)->mime_encode;

こういうのでOKらしい
でもまでエンコードされてしまうということなので

From: てすと<foo@example.com>
これが
From: =?ISO-2022-JP?B?GyRCJEYkOSRIGyhCPGZvb0BleGFtcGxlLmNvbT4=?=
こうなるらしい