open(my $fh, '<', 'file')
   or die("open \"file\": $!\n");
binmode($fh);