#!/usr/bin/perl

use lib "modules";
use strict;
use Server;

my $server = new Server;
$server->register("client_1.pl");
$server->register("client_2.pl");
my ($exit_func) = sub { print "Quitting via SIGTERM or SIGINT\n"; };
$server->run($exit_func);