# simple-perl-server.pl
package MyPackage;

# base reapped from (with thanks):
#   https://metacpan.org/pod/Net::Server
 
use base qw(Net::Server);

my %Store;

my $port = shift or die "No port\n";

sub process_request {
    my $self = shift;
    while (<STDIN>) {
	s/[\r\n]+$//;
	if( /^(.+?)=(.+?)$/ ){
		my $x = $1;
		my $y = $2;
		#print "Added '$x' => '$y'\015\012";
		print STDERR "Added '$x' => '$y'\n";
		$Store{$x} = $y;
	} elsif( /^(.+?)=$/ ){
		my $x = $1;
		if( exists $Store{$x} ){
			print "'$x' => '".$Store{$x}."'\015\012";
		} else {
			print "'$x' => <undef>\015\012";
		}
	} elsif( /quit/i ){
		print STDERR "$0 : quitting ...\n";
		exit(0);
	}
    } # while <STDIN>
}
MyPackage->run(port => $port, ipv => '*');

##</code><code>##

# simple-perl-client.pl

# EDIT: this has been edited an hour after posting to set N=100_000
# time reported is correct though
# mostly from here:
#   https://codereview.stackexchange.com/questions/106421/network-chat-in-perl
# and here:
#   https://gist.github.com/chankeypathak/1b1b9b3a27799eb5e277

use strict;
use warnings;

use IO::Socket::INET;
use Time::HiRes qw/gettimeofday/;

my $N = 100_000; # number of inserts
my $start_time = Time::HiRes::gettimeofday();

my $server          = shift or die "No server\n";
my $port            = shift or die "No port\n";
my $client_socket   = IO::Socket::INET->new(
        PeerPort    =>  $port,
        PeerAddr    =>  $server,
        Proto       =>  'tcp'
   ) or die "Can't create send socket: $!!\n";

print "Connected to $server:$port!\n";

my $child;

if($child = fork) {
  while( 1 ){
    my $received = <$client_socket>;
    exit unless defined $received;
    print $received;
  }
}

die "fork: $!\n" unless defined $child;

# set
print "$0 : doing $N sets ...\n";

for my $i (1..$N){
  $client_socket->send("x$i=$i\n");
}
print "$0 : done $N sets.\n";

print "$0 : doing $N gets ...\n";
# get
for my $i (1..$N){
  $client_socket->send("x$i=\n");
}
print "$0 : done $N gets.\n";

my $end_time = Time::HiRes::gettimeofday();

print "Closing connection ...\n";
$client_socket->send("quit\n\n");
close $client_socket;
sleep(1);
print "$0 : done $N sets/gets in ".($end_time-$start_time)." seconds.\n";