do {
  $socket->recv($response, 1);
  $data = $data . $response;
} until ($response == hex(0x00));
print "$data\n";
close($socket) || die "Error terminating socket connection...\n";