Форум Flasher.ru - Вечная проблема сокет сервер на perl + клиент на flash

Проблема такая, как правильно на перле упаковать данные для отправки флеш клиенту? На приеме от флеша идет бинарная строка (с расшифровкой нет проблем), не у верен, но думаю, что и обратно флешу нужно передавать бинарную строчку. Пробовал передавать без расшифровки тоже, что и принял все нормально работает. клиент работает на XML Socket.
Вот пример кода на перле:

Код:

while(1){

$count = sysread(CLIENT, $data, 1024);

$cunt = unpack("A*",$data);

print $data,"\n";

$mess="rhwuf4734g3g\n";

$wrd=pack("B",$mess);

print CLIENT $wrd;

}