#!/usr/bin/perl
 use IO::Socket;

 $server = IO::Socket::INET->new( Proto     => 'tcp',
                                  LocalHost => 'localhost',
                                  LocalPort => '6969',
                                  Listen    => 1,
                                  Reuse     => 1);

 die "can't setup server" unless $server;

 print "[Server $0 accepting clients]\n";

while ($client = $server->accept()) {
   while (<$client>) {
     if ($play_game)
     {
        #play game in here
     }
     elsif  (/READY/i)           { $players_ready++; }

     if  ($players_ready == 2)   { print $client "GO\n"; $play_game = 1; }
   }
   close $client;
 }