binmode $fh;
read($fh, my $buf, 20000);