sub readSocket {
    my $me = shift;
    .
    .
    my $readNum = read($me->{S}, $inData, 4);
    .
  }