sub close {
    ...
    if( $_[0]->{autoclose} ) {
        $_[0]->kill_child( $_[0]->{cleanup_signal}, $pid, $_[0]->{wait_file} );
    }
}