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

##</code><code>##

# Client class

sub send {
   my ($self, $msg) = @_;
   $self->{work_queue}->enqueue($msg);
}

sub worker {
   my ($self) = @_;
   my $q = $self->{work_queue};
   for (;;) {
      my $msg = $q->dequeue();
      ... send $msg ...
   }
}