функция кодирования полей е-мэйла

[Forza]

Подскажите, пожалуйста, функцию кодирования кириллицы в полях From, To и Subject сообщения электронной почты: чтобы, например, из "тест" получалось "=?KOI8-R?B?1MXT1A==?=" (только не для koi8, а для win-1251).

[NeoNox]

Forza
эта тема поднималась на этом форуме за последнюю неделю дважды.

[Forza]

Ага, всё оказалось тривиально:
use MIME::Base64;
my $subject = "тема письма"
$subject = "=?WINDOWS-1251?B?".substr(encode_base64($subject),0,-1)."?=";
Может, это в ФАК?