Еще раз по поводу отправки сообщения в нужной кодировке:
Все в высшей степени просто.
Смотри код:
my ($to_address, $reply_to_address, $from_address, $subject, $body) = (\'\',\'\',\'\',\'\',\'\');
my $message = qq(To: $to_address
Reply-to: $reply_to_address
From: $from_address
Subject: $subject
Content-Type: text/plain; charset="Windows-1251"
$body);
my $mail_prog = \'path to your send mail\' ;
local *EMAIL;
open (EMAIL, "|$mail_prog -t") or die "Can\'t open senmail: $!";
print EMAIL $message;
close (EMAIL) or die "Can\'t close senmail: $!";
Отрабатывает нормально.
AZtpa,