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

$|++;
print "$$ Server started\n";;  # do a "top -p -H $$" to monitor server threads

my $buf2;
my $SyncID;
my $SyncHeader;
my $UnitID;
our @clients : shared;
@clients = ();
our $k;
our $m;
our $n;
our $p;
our $dup=0;
our $sel_cli2;

my @Mdevices;

my $ref;
my $peerC = 1;