разрыв соединения XMLSocket

[SergeWarlock]

Добрый день!

Создаю XMLSocket на стороне клиента, на сервере работает перл скрипт(из урока), который просто пересылает обратно полученные
данные :

#!/usr/bin/perl -w
use POSIX;
use IO::Socket;
use IO::Select;
$shutdown = 0;
$server = IO::Socket::INET->new(LocalPort => 3000, Listen => 10 ) or die "Can't make server socket: $@n";
$select = IO::Select->new($server);
while (!$shutdown)
{
foreach $client ($select->can_read(1))
{
$client = $server->accept();
$client->recv($data, POSIX::BUFSIZ, 0);
print $client $data;
}
}


Flash-клиент их принимает, все нормально. Но ...тут же разрывает соединение с сервером!
Почему это происходит и как удержать соединение с сервером?

[AndreyTS]

я в перле не шарю, но возможна такая ситуация, что сервер сам "гасит" порт

или же непрально работаешь с xmlsocket`ом, мож не в значай грохаешь обжект (xmlsocket)