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