Почтовые странности

Пытался слать почту через Catalyst::Plugin::Email и Catalyst::View::Email::Template (используя sendmail) — хренушки: сервер виснет. Думал, может sendmail глюкает?
Пробую по-простому:

#!/usr/bin/perl -w

my $to = 'xx@xxxx.ru';
my $from = 'zz@zzzz.ru';
my %header = (
    'Subject'   => 'sendmail test',
    'To'    => "Xxxx Xxxxxxxxx <$to>",
    'From'  => "Zzz Zzzzzzzz <$from>",
    'X-Mailer'  => 'perl');
my $message = qq{Russian letters:\n\nЭто текст на русском языке в кодировке КОИ-8.\n--\nRobot\n};

open MAIL, "|sendmail $to" or die "Can't open pipe to sendmail: $!\n";
foreach (keys %header)   {
    print MAIL $_ . ": " . $header{$_} . "\n";
}
print MAIL "\n";

print MAIL $message;
close MAIL;

print "Done\n";

Письма ходят... Странно...

P. S. Попробовал покрасить исходник не катькой, а энскриптом. Выводимый HTML весит меньше (за счёт <font> вместо <span>), однако крив (лишние непарные закрывающие тэги) и требует напильника в лице tidy.