my $result = $client_socket->send($answer); warn "$0: close $answer: $!" if not defined $result;