The object destructor handles the death of each distinct object. But
sometimes you want a bit of cleanup when the entire class is shut down,
which currently only happens when the program exits. To make such a
class destructor, create a function in that class's package named
END. This works just like the
END function in traditional modules, meaning that it gets called whenever your program exits unless it execs or dies of an uncaught signal. For example,
sub END {
if ($Debugging) {
print "All persons are going away now.\n";
}
}
When the program exits, all the class destructors
(END functions) are be called in the opposite order that they were loaded in
(LIFO order).