my $str = '';
while (read($handle, $str, 32*1024, length($str))) {