--initialization stuff as you have it--
#$serv is the opened handle to the server
my %value=(1,'Rock',2,'Scissors',3,'Paper');
while(1)
{
  $serv->recv($data,10,0);
  if($data eq 'STOP') die "server asked for stop\n";
  $serv->print($value{int(rand(4)});
}