my $response;
{
  local $/ = chr(0);  # or "\x00"
  $response = $socket->getline
}