Select Code to Download

# Send request.
print $oSocket $sSend
...
   $rv = sysread($oSocket, $data_read, 4096, length($data_read));
   die("Unable to read from the socket: $!\n") if not defined $rv;
} while $rv;