Select Code to Download

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

$

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