#!/usr/bin/perl

use strict;
use warnings;
use IO::Socket;
use Forking::Amazing;

my $forks = shift // 1;
my $sends = shift // 1;
my $totalerrors = 0;
my $transactions = 0;

Forking::Amazing::run
  $forks,
  sub
    {
    my $errors = 0;
    my $trans = 0;
    for ( 1 .. $sends )
      {
      my $s = IO::Socket::INET->new('localhost:6666') or die;
      my $key = join '', map +('a'..'z')[rand 26], 1 .. 10;
      print $s "foo|$key\n";
      my $answer = join '', <$s>;
      $answer =~ /$key/ or $errors++;
      print $answer;
      close $s;
      $trans++;
      }
    return [ $errors, $trans ];
    },
  sub
    {
    $totalerrors += $_[1][0] // 0;
    $transactions += $_[1][1] // 0;
    },
  1 .. $forks;

print "total errors: $totalerrors  transactions: $transactions\n";