perl -c -e "BEGIN{print qq(1-begin\n)};
            UNITCHECK {print qq(2-unitcheck\n)};
            CHECK {print qq(3-check\n)};
            INIT {print qq(4-init\n)};
              print qq(5-main\n);
            END{print qq(6-end\n)}"

__OUTPUT__
1-begin
2-unitcheck
3-check
-e syntax OK

# the same code without -c

__OUTPUT__
1-begin
2-unitcheck
3-check
4-init
5-main
6-end