Help for this page
package LL::Node; { ... } } # other stuff
sub DESTROY { $allocated--; $_[0]->{next}=undef; $_[0]->{prev}=undef; }