perl Devel-GlobalDestruction Devel::GlobalDestruction