#
sub server_thread {
     print "[Server]\n";
     use IO::Socket;
     use IO::Select;
     use strict;

     my $server = IO::Socket::INET::->new(Proto => 'tcp',
                                          LocalPort => 55555,
                                             Listen => 1,
                                          Reuse => 1
                                          ) or die "Server can't start: $!";
      
      
     my $readable_handles = new IO::Select();
...
           # It is an ordinary client socket, ready for reading.
           $buf = <$sock>;
...