1#!./perl -w 2 3sub func_c { 4 print "Function C\n"; 5 for (my $i = 0; $i < 3000000; $i++) { my $j = $i + 1; } 6} 7 8sub func_b { 9 print "Function B\n"; 10 for (my $i = 0; $i < 2000000; $i++) { my $j = $i + 1 ; } 11 func_c(); 12} 13 14sub func_a { 15 print "Function A\n"; 16 for (my $i = 0; $i < 1000000; $i++) { my $j = $i + 1; } 17 func_b(); 18} 19 20func_a(); 21