Как я могу принять несколько соединений TCP в Perl?

У меня есть проблема со сценарием Perl для Linux. Это - основная цель, должен быть посредник между 3 приложениями. Что это должно сделать:

1. Это должно смочь ожидать текста UDP (без пробелов) на $udp_port
2. Когда это получает тот текст UDP, это должно передать его клиенту TCP, который соединен

Проблемой является мое приложение, в настоящее время работает до первого раза я разъединяюсь с клиентом TCP. Затем я не могу соединиться с ним больше, и это испытывает таймаут после того, как это получает следующий пакет UDP на $udp_port. Так в основном каждый раз, когда я хочу снова соединиться с TCP, я должен перезапустить приложение.

Все это должно быть максимально быстро (каждая миллисекунда количества). Текст, отправленный в UDP или TCP, не содержит пробелы. Не необходимо смочь поддерживать несколько клиентов TCP сразу, но это, конечно, было бы преимущество :-)

Вот мой текущий код:

#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;
use Net::hostent;
use threads;
use threads::shared;

my $tcp_port = "10008";  # connection from TCP Client
my $udp_port = "2099";  # connection from Announcer
my $udp_password = ""; # password from Announcer
my $title = "Middle Man server version 0.1";
my $tcp_sock = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $tcp_port, Listen => SOMAXCONN,Reuse => 1)|| die @!;
my $udp_sock = new IO::Socket::INET(LocalPort => $udp_port, Proto => "udp") || die @!;

my (@threads);

print "[$title]\n";

sub mySubTcp($)
{
  my ($popup) = @_;

  print "[TCP][CLIENT CONNECTED]\n";
  while (my $answer = <$popup>)
  {
chomp $answer;
my ($pass, $announce) = split ' ', $answer;
print $answer . '\n';
  }
  printf "[TCP][CLIENT DISCONNECTED]\n";
}

my $client = $tcp_sock->accept();
$client->autoflush(1);


my $thr = threads->new(\&mySubTcp, $client);


while ($udp_sock->recv(my $buf, 1024))
{
  chomp $buf;

  my $announce = $buf;
    print "[ANNOUNCE] $announce [START]\n";
    print $client $announce . "\n";
    print "[ANNOUNCE] $announce [END]\n";

}

Вот код, я пытался после нескольких предложений обойтись без помощи поточной обработки. Проблема - даже Вы, я могу соединиться с сообщением клиента TCP, "Пытающимся устанавливать UDP\n, никогда не отображается. Вероятно, что-то я делаю неправильно. Клиент TCP просто соединяется и ожидает сервера для отправки некоторых данных. Udp прибывает, но он не принят. Вот код:

#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket;
use Net::hostent;
use threads;
use threads::shared;

my $tcp_port = "10008";  # connection from Tcp
my $udp_port = "2099";  # connection from Announcer

my $title = "Middle Man server version 0.2";
my $tcp_sock = IO::Socket::INET->new( Proto => 'tcp', LocalPort => $tcp_port, Listen => SOMAXCONN,Reuse => 1)|| die @!;

my (@threads);

print "[$title]\n";

for (;;)
{
    my $open_socket = $tcp_sock->accept();
    print "[TCP][CLIENT CONNECTED]\n";
    while (my $input = <$open_socket>)
    {
    print "Trying to setup UDP\n";
    my $udp_sock = new IO::Socket::INET(LocalPort => $udp_port, Proto => "udp") || die @!;
    while ($udp_sock->recv(my $buf, 1024)) {
          chomp $buf;
          print "\[ANNOUNCER\] $buf \[START\]\n";
          print $open_socket $buf . "\n";
          print "\[ANNOUNCER\] $buf \[END\]\n";
    }
    print "Closing UDP\n";
    close $udp_sock;
    #chomp $input;
    #print $input;
}

    close $open_socket;
    printf "[TCP][CLIENT DISCONNECTED]\n";
}