use IO::Handle;

sub IO::Handle::binmode {
    @_ == 2 or Carp::croak 'usage: $io->binmode(DISCIPLINE)';
    binmode($_[0], $_[1]);
}

STDIN->binmode(":raw");