Select Code to Download

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

{
    package Class;
...
        $self->Finish();
    }
}

sub Class::DESTROY
{
    my $self = shift;
    $self->Finish();
}