# Send request.
print $oSocket $sSend
   or die("Unable to write to the socket: $!\n");

# Receive response.
my $data_read = "";

my $rv;
do {
   $rv = sysread($oSocket, $data_read, 4096, length($data_read));
   die("Unable to read from the socket: $!\n") if not defined $rv;
} while $rv;