my $read = read($fh, my $buf='', $MAX_READ);