warn "Modbus client : problem with recv: $!\n";

##</code><code>##

       my $from_who = recv( TCP_SOCK, $data, MAX_RECV_LEN, 0 );
       if ( $from_who ){