[mar]

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

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

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