select  undef, undef, undef, 0.005; ## Adjust. > slower; < faster.
   last unless $len = $data->read($buf,$blksize);