Help for this page
warn "Modbus client : problem with recv: $!\n";
my $from_who = recv( TCP_SOCK, $data, MAX_RECV_LEN, 0 ); if ( $from_who ){