sub DESTROY {
    my $self = shift;
    ... do class specific stuff ...
    $self->SUPER::DESTROY if $self->can("SUPER::DESTROY");
}