read (FH, my $buffer, 999999)