1#!./perl -w 2 3sub func_c { 4 print "Function C\n"; 5} 6 7sub func_b { 8 print "Function B\n"; 9 my $b = "B" x 100_000; 10 func_c(); 11} 12 13sub func_a { 14 print "Function A\n"; 15 func_b(); 16} 17 18func_a(); 19