sub DESTROY {
    my $self = shift;
    if ( $$ == $self->{parent_pid} ) {
        kill 'TERM' => $self->{pid};
    }
}