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