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