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