unless(sysread($handle,$count,4) == 4 && $count =~ m/^\d{4}$/ && sysread($handle,$message,$count) == $count){
#         print "Error/Disconnect\n";
         return;
      }