Binary mode

---

examples/files-perl/open_binary_file.pl

#!/usr/bin/perl
use strict;
use warnings;

my $filename = "input.txt";
open(my $fh, "<", $filename) or die;
binmode($fh);