Select Code to Download

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

sub DESTROY {
    my $self = shift;
...
        $self->$destroy if $self->can($destroy);
    }
}