use open IN=>":raw", OUT=>":raw";

##</code><code>##

    *CORE::GLOBAL::open= sub {
        my( $fh, $arg, @args )= @_;
        my $ret= CORE::open( $fh, $arg, @args );
        binmode( $fh );
        return $ret;
    };

##</code><code>##

    if (PL_op && PL_op->op_type == OP_OPEN) {
        /* set up disciplines */
        U8 flags = PL_op->op_private;
        in_raw = (flags & OPpOPEN_IN_RAW);

##</code><code>##

    if (PL_op) {