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