open my $fh, "+<$file" or die "$!";
    binmode $fh;

    ...