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