read(FH, $data, 10) or die "Error reading from [$file]: $!\n";