как Net::XMPP подружить с UTF8 ?

ух.. попробую угадать..
перед отправкой сообщения сделай что-то типа вот этого:
$mess=decode("utf8",$mess);

пробовал:

Undefined subroutine &main::decode called

Когда-то давным-давно, в далёкой гала^W^W^W у меня был Jabber-бот на
Перле. Работал там UTF-8 так:

#!/usr/bin/perl 

use locale;
use POSIX qw(locale_h);

my $locale = "ru_RU.utf8";
my $new_locale = setlocale(LC_ALL, $locale);
die "  $locale" if ($new_locale ne $locale);

use strict;

use utf8;
use Encode;.
use Net::Jabber qw(Client);
use Unicode::Lite;
use DBI;
use Digest::MD5 qw(md5_hex);
use Date::Parse;
use Fcntl ':flock';
use POSIX("strftime");

...

$c->MessageSend(to=>"talks\@conference.balancer.ru", type=>"groupchat", body=>"BaLaBOT started! (запущен, так сказать...)");

....

Упс, пардон, это был Net::Jabber

2KRoN73: ОГРОМНОЕ СПАСИБО!!!