Архив форумов ЦИТФорума

[lbpf]

Делаю так:
use MIME::Lite;
$msg = MIME::Lite->new( From => "123456",
To => "653456",
Subject => "Корпоративный клиент",
Type => "text/plain",#; charset=windows-1251",
Encoding => "8bit",
Data => "$mail{body}"
);
$success= $msg->send();
Получаю в окне ICQ EmailExpress вот такое (сабджект приходит нормальный, а вот тело):
Subject: Корпоративный клиент
zeXu4fXu5Ojs7iDx4v/n4PL88f8g8SDq6+jl7fLu7DoNCiDN4Ofi 4O3o5SDu8OPg7ejn4Pbo
6DogxOjx7+vl6Q0KIMru7fLg6vLt7uUg6+j27j ogICAgICD0++7r4A0KINLl6+X07u06ICAg
ICAgICAgICAgICAyMTQ5DQog RS1tYWlsOiAgICAgICAgICAgICAgIG1tbUBzb2Jha2EucnUN
Cg==

Мн е понятно, что если бы мне пришло такое, то я бы сделал, что нибудь типа
$body = MIME::Base64::decode(body);

Вопрос: что мне надо сделать перед отправкой, чтобы ICQ правильно приняла (Encoding в заголовке менял на base64 - не помогает)