sub run {
   for (;;) {
      my $msg = $connection_to_server->get();
      $_->send($msg) for @connections_to_clients;
   }
}