tie *OFH, "IOQueue", $obuff, $self;
        tie *EFH, "IOQueue", $ebuff, $self;

        $$out = $self->{'outh'} = \*OFH;
        $$err = $self->{'errh'} = \*EFH;


##</code><code>##

        if (! defined $self->{'rc'}) {
                ...

                my $inh     = $self->{'inh'};
                my $outh    = $self->{'outh'};
                my $errh    = $self->{'errh'};
                my $pid     = $self->{'pid'};

        print "About to close\n";

                ...

                $self->{'rc'} = $rc;

                untie *{$outh};
                untie *{$errh};

        print "Join Threads $othr $ethr\n";
                $othr->join();
        print "part done\n";
        print "Join Threads $othr $ethr\n";
                $ethr->join();
        print "Threads joined\n";

                ...