[Comm] Perl unicode

[Stanislav Yadykin <tosick@altlinux.ru>]

[-- Attachment #1: Type: text/plain, Size: 1871 bytes --]

Добрый день!
Поскольку у моего аплинка временная проблема с ru.perl, решил написать сюда, 
возможно кто-то сталкивался/знает.
Есть программа:
==============================
use Net::Jabber qw(Client);
use Text::Iconv;

my $jabber = new Net::Jabber::Client;
$jabber->Connect(hostname => 'host');
my @status = $jabber->AuthSend(
  'username'  => 'user',
  'password'  => 'password',
  'resource'  => 'client'
);
$jabber->PresenceSend('type' => 'available');
$jabber->SetCallBacks('message' => \&JabberGetMessage);

while($jabber->Process){ 1; }

sub fUni {
  my $conv = Text::Iconv->new('utf8', 'windows-1251');
  return $conv->convert(shift);
}
sub tUni {
  my $conv = Text::Iconv->new('windows-1251', 'utf8');
  return $conv->convert(shift);
}

sub JabberGetMessage {
  my $id = shift;
  my $message = shift;
  my $from = fUni($message->GetFrom);
  my $subj = fUni($message->GetSubject);
  my $body = fUni($message->GetBody);
  $jabber->MessageSend(
    To => 'newuser@newhost',
    Subject => tUni($subj),
    Body => tUni($body)
  )
}
==============================

При отсылке жаббером текста "тест", проходя через этот "жаббер-прокси" 
приходит в виде "Ñ,есÑ,", т.е. почему-то проходит двойную конертацию в 
юникод. Если процедуру JabberGetMessage переписать в виде 

sub JabberGetMessage {
  my $id = shift;
  my $message = shift;
  $jabber->MessageSend(
    To => 'newuser@newhost',
    Subject => $message->GetSubject,
    Body => $message->GetBody
  )
}

то к клиенту возвращается нормальный "тест". В чем может быть проблема?
-- 
Stanislav Yadykin

[-- Attachment #2: Type: application/pgp-signature, Size: 190 bytes --]