BEGIN {
    eval "require 5.008; use open OUT => ':raw:perlio'; sub _binmode() {}";
    eval "sub _binmode { binmode @_ }" if $@;
}