phases2.pl

#!/usr/bin/perl

use perl5i;

BEGIN { say 1 }
BEGIN { say 2 }

CHECK { say 4 }
CHECK { say 3 }

INIT { say 5 }
INIT { say 6 }

say 7; #runtime
say 8; #runtime

END { say 10 }
END { say 9 }