Отправка E-mail через Perl.

Наконец то разобрался как правильно выставить кодировку при отправлении почты через MIME::Lite. Данный скрипт использую для отправки сообщения с вложением, для реализации сервиса Fax2Email на базе Asterisk.

#!/usr/bin/perl -w
use strict;
use MIME::Lite;
use MIME::Base64;

(my $to,my $fPath,my $CallerID, my $Date) = @ARGV;

my $subject = MIME::Base64::encode("Вам факс от номера $CallerID");
$subject = "=?utf-8?B?".$subject."?=";

my $message = "Вам пришло новое факсимильное сообщение. $Date с абонентского номера $CallerID, вам было отправлено факсимильное сообщение.";


my $msg = MIME::Lite->new(
From => 'source@mail.ru',
To => "$to",
Subject => "$subject",
Type => 'multipart/mixed',
);

$msg->attach(
Type => 'text/plain; charset=utf-8',
Data => "$message",
);

$msg->attach(
Type => 'image/tiff',
Path => "$fPath",
Filename => 'fax.tiff',
);

$msg->send;
#~ print "message sent!\n";