perl Devel-GlobalDestruction