История изменений

% perl -wE 'sub f{say ${^GLOBAL_PHASE}};f;BEGIN{f};CHECK{f};END{f}'
START                                          
CHECK                                          
RUN                                            
END

% perl -wE 'sub f{say ${^GLOBAL_PHASE}};f;BEGIN{f}'
START
RUN