[Siava one]

AlexanderN
посмотри в тексте скрипта, может где прописана кодировка, найди и замени на windows-1251

[AlexanderN]

Нет, в скрипте не прописана.

[mar]

при использовании
use Net::SMTP;
где
$smtp = Net::SMTP->new('хост',
                        Hello => 'хост',
                       ;

строка с кодировкой:

$smtp->datasend("Content-Type: text/plain; charset=\"koi8-r\"\n\n";