[moderator ]
Здесь был код с ошибками.
[\\moderator ]
вот рабочая версия...
а нельзя ли как-то определить оборвавшегося клиента кроме, как строчками
my $data = \'\';
my $rv = $client->recv($data, POSIX::BUFSIZ, 0);
unless (defined($rv) && length $data)
{
....
а то без них - всё работает...да и у меня такое подозрение, что они и get_request обнуляют...