Похоже, что проблема в sendmail... Скрипт, осуществляющий рассылку выглядит приблизительно следующим образом:
#!/usr/local/bin/perl
use MIME::Lite;
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, 'KOI8-R');
open (MESSAGE, "/.../my.htm");
@message=<MESSAGE>;
close MESSAGE;
$subject="subject.my";
### Create a new multipart message:
$msg = MIME::Lite->new(
From =>'ADRESS',
To =>'USER',
Subject =>"$subject",
Type =>'TEXT/HTML',
Data =>"@message"
);
### Attach a part:
$msg->attr('content-transfer-encoding' => '8bit');
$msg->attr("content-type.charset" => "windows-1251");
$msg->attach(Type =>'image/gif',
Path =>'/.../my.gif',
Filename =>'my.gif'
);
MIME::Lite->send("sendmail", "/usr/sbin/sendmail");
$msg->send();
Все, в принципе, работает замечательно, за исключением того, что почтовый клиент не понимает поле subject, в какой бы кодировке я его не писал... Буду благодарен любому совету, а то уже умаялся копаться с кодировками :)