Select Code to Download

BEGIN{print qq(1-begin\n)};
UNITCHECK {print qq(2-unitcheck\n)};
...
INIT {print qq(4-init\n)};
  print qq(5-main\n);
END{print qq(6-end\n)};

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

some_win>perl used_modules.pl test_of_executed_code.pl
1-begin
...
warnings             1.12
6-end

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

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