1235368Sgnn#!./perl -w 2235368Sgnn 3235368Sgnnsub func_c { 4235368Sgnn print "Function C\n"; 5235368Sgnn} 6235368Sgnn 7235368Sgnnsub func_b { 8235368Sgnn print "Function B\n"; 9235368Sgnn my $b = "B" x 100_000; 10235368Sgnn func_c(); 11235368Sgnn} 12235368Sgnn 13235368Sgnnsub func_a { 14235368Sgnn print "Function A\n"; 15235368Sgnn func_b(); 16235368Sgnn} 17235368Sgnn 18235368Sgnnfunc_a(); 19