Emulate ${^GLOBAL_PHASE} for older perls