sub BINMODE {
    my( $self, @args ) = @_;
    binmode $self->{fh1}, @args;
    binmode $self->{fh2}, @args;
}