Could you do it with DESTROY instead of __END__? (DESTORY being the method called when your object is garbage collected).

Update: Just remembered something--in mod_perl, your interpereter never exits until Apache goes down, which is why __END__ never gets called. So DESTROY with tight lexical scoping is really your only option here.

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated