read $fh, my($buf), '4k';