1235368Sgnn#!./perl -w 2235368Sgnn 3235368Sgnnsub func_c { 4235368Sgnn print "Function C\n"; 5235368Sgnn sleep 1; 6235368Sgnn} 7235368Sgnn 8235368Sgnnsub func_b { 9235368Sgnn print "Function B\n"; 10235368Sgnn sleep 1; 11235368Sgnn func_c(); 12235368Sgnn} 13235368Sgnn 14235368Sgnnsub func_a { 15235368Sgnn print "Function A\n"; 16235368Sgnn sleep 1; 17235368Sgnn func_b(); 18235368Sgnn} 19235368Sgnn 20235368Sgnnfunc_a(); 21