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)};

##</code><code>##

some_win>perl -c -d:TraceUse test_of_executed_code.pl
1-begin
2-unitcheck
3-check
Modules used from test_of_executed_code.pl:
test_of_executed_code.pl syntax OK


##</code><code>##

some_win>perl used_modules.pl test_of_executed_code.pl
1-begin
2-unitcheck
strict               1.04
warnings             1.12
6-end


##</code><code>##

some_win>perl used_modules.pl test_of_executed_code.pl
1-begin
2-unitcheck
strict               1.04
warnings             1.12

##</code><code>##

some_win>perl used_modules.pl test_of_executed_code.pl
1-begin
strict               1.04
warnings             1.12