binmode $fh;
local $/ = \20000;
my $buf = <$fh>;