Select Code to Download

#!/usr/bin/perl

...
die "unable to fork: $!" unless defined $pid;

exec "./client &";

#!/usr/bin/perl
 use IO::Socket;
...
   }
   close $client;
 }

#!/usr/bin/perl -w
use IO::Socket;
...
   }
 close $server;
 }

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