# this is broken !!!
$socket->recv($data, $reponse_length) or die "Couldn't read data from server: $!";

##</code><code>##

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