sub global_send($){
   my $data = $_[0];
   
   foreach my $ip(@connected_ips){
      my $server = new IO::Socket::INET (
                                  PeerAddr  => $ip,
                                  PeerPort  =>  4444,
                                  Proto => 'tcp',
                               )                
      or warn "Can not connect to client: $ip\nSysErr: $!\n";
      if(!defined($server)){return;}
      $server->send($data);
      $server->close();
   }
}