Select Code to Download

(undef, $string_in) = $ob->read(65536);

my $input_string;
{
...
  $input_string .= $str;
  redo if ($size == 4096); # read more?
}