$ perl -E'BEGIN { eval "CHECK { say q{foo} }" }'
foo

$ perl -E'BEGIN { eval "INIT { say q{foo} }" }'
foo