#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;

my $server = IO::Socket::INET->new(
    LocalPort => 8000,
    Type      => SOCK_STREAM,
    Listen    => SOMAXCONN,
    Blocking  => 0,
    
);
die "Can't create server socket! $!\n" unless $server;

sub addSomething {
    # connects on port 8001
    # and submits entry to
    # be added to the database
    # then waits for a status
    # from $server on port 8000
}

sub updateSomething {
    # sends update request on
    # port 8001 then waits for
    # status from $server on
    # port 8000
}