Actually, what I really want to know is why the object is being destroyed.
Within the DESTROY method I would like to differentiate between: A reference to an object going out-of-scope and The PERL interpreter stopping because the die function was invoked.