my $input_string;
{
  my ($size, $str) = $ob->read(4096); # 4k at a time
  $input_string .= $str;
  redo if ($size == 4096); # read more?
}