Select Code to Download

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

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