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

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

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

 print "[Server $0 accepting clients]\n";
 print "Rock, Paper, Scissors: $ARGV[0] iterations\n\n";

while ($client = $server->accept()) {
print "[Server $0 receiving client $client]\n";
   while (<$client>) {
     if ($play_game)
     {
        #play game in here
     }
     elsif  (/READY/i)
     {
        $players{$client} = ++$players_ready;
        print "Player $players{$client}: Ready\n";
     }
      
     if  ($players_ready == 2)   { print $client "GO\n"; $play_game = 1; }
   }
   close $client;
 }