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