open(FH, $fname) or die "error: open '$fname': $!";
binmode(FH);
# ...