sub DESTROY {
    my $self = shift;
    &stop;
}

##</code><code>##

sub DESTROY {
    my $self = shift;
    $self->stop();
}

##</code><code>##

local $SIG{INT} = 'IGNORE';
kill INT => -$$;

##</code><code>##

kill INT => $self->{pid};