#!/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";

while ($server = $client->accept()) {
   while (<$server>) {
     if  (/GO/i)
        {
        srand;  # seed the random number function
        $num = int (rand 4);    # get a random integer, 1 through 104

        if    ($num == 1) { print $server "Rock\n"; }
        elsif ($num == 2) { print $server "Paper\n"; }
        elsif ($num == 3) { print $server "Scissors\n"; }
        }
     if (/STOP/i) { last; }
   }
 close $server;
 }