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