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