Devel::globaldestruction is a perl module that exposes the pl_dirty flag to perl as a subroutine named in_global_destruction. it is useful when writing destructors, so that only non-process local resources are freed while in global destruction.