Help for this page
$out = "output_path"; open (OUTBIN, '>',"$out") || die "unable to open $out"; binmode(OUTBIN) || die "unable to set binmode $out";
open(INBIN, "<$x") || die "unable to open $x"; binmode(INBIN) || die "unable to set binmode $x"; ... } close(INBIN) || die "unable to close inbin"; close(OUTBIN) || die "unable to close outbin";