Skeleton Server

First we create a skeleton server that does not do anything.

#!/usr/bin/perl
use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use SkeletonServer;

SkeletonServer->run(port => 8000);

package SkeletonServer;
use warnings;
use strict;

use base 'Net::Server';

sub process_request {
    # do your stuff
}


1;