Looks like your mistake is using the accept method in your client.
Don't do that.
(c8=
#!/usr/bin/perl -w
use IO::Socket;
# create a tcp connection to the specified host and port
$client = IO::Socket::INET->new( Proto => "tcp",
PeerAddr => 'localhost',
PeerPort => '6969' ),
or die "can't connect to server: $!";
print "[Client $0 connected to server]\n";
print $client "READY\n";
# as a client, you are not accepting connections
# while ($server = $client->accept()) {
# listen on and talk into your open socket instead
while (<$client>) {
if (/GO/i)
{
srand; # seed the random number function
$num = int (rand 4); # get a random integer, 1 through 104
if ($num == 1) { print $client "Rock\n"; }
elsif ($num == 2) { print $client "Paper\n"; }
elsif ($num == 3) { print $client "Scissors\n"; }
}
if (/STOP/i) { last; }
}
close $client;