use DBI;
use threads qw(stringify);
use threads::shared;
use Time::HiRes qw (sleep);
do("./sql.pl");
&sql_setup;

$server_id = "A";
share($server_id);

$sys_ok = 1;
share($sys_ok);

$|++;

$thr1 = threads->new(\&starter);
$thr1->detach;

$thr2 = threads->new(\&stopper);
$thr2->detach;

$thr3 = threads->new(\&monitor);
$thr3->detach;

$thr4 = threads->new(\&processor);
$thr4->detach;