1N/A#!./perl -w
1N/A
1N/Asub func_c {
1N/A print "Function C\n";
1N/A for (my $i = 0; $i < 3000000; $i++) { my $j = $i + 1; }
1N/A}
1N/A
1N/Asub func_b {
1N/A print "Function B\n";
1N/A for (my $i = 0; $i < 2000000; $i++) { my $j = $i + 1 ; }
1N/A func_c();
1N/A}
1N/A
1N/Asub func_a {
1N/A print "Function A\n";
1N/A for (my $i = 0; $i < 1000000; $i++) { my $j = $i + 1; }
1N/A func_b();
1N/A}
1N/A
1N/Afunc_a();