Help for this page

Select Code to Download

Select or download this

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