Select Code to Download

package junk;
use strict;
...
sub test2{ print 'test2'; goto &test;  }

1;

#! perl -slw
use strict;
...

test;
test2;

C:\test>perl -d:DProf junk.pl
test
...
 0.00       - -0.000      1        -      -  junk::test2
 0.00       - -0.000      3        -      -  junk::BEGIN
 0.00       - -0.000      2        -      -  main::BEGIN