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