open(my $fh, '<', $file);
binmode($fh);