sub clean_up
{
    my $self = shift;
    if ( $self->{Lock} )
    {
        #
        #    the code to release the lock
        #

        $self->{Lock} = 0;
    }
}

sub DESTROY
{
    my $self = shift;
    $self->clean_up();
}
[download]