Select Code to Download

sub run {
   for (;;) {
...
      $_->send($msg) for @connections_to_clients;
   }
}

# Client class

...
      ... send $msg ...
   }
}