d:\>perl "-MData::Dumper print ${^GLOBAL_PHASE}" -e1
START
d:\>