unless (defined $socket->recv($data, $reponse_length)) { die "Couldn't read data from server: $!"; }