1N/A#!./perl -w
1N/A
1N/Asub func_c {
1N/A print "Function C\n";
1N/A sleep 1;
1N/A}
1N/A
1N/Asub func_b {
1N/A print "Function B\n";
1N/A sleep 1;
1N/A func_c();
1N/A}
1N/A
1N/Asub func_a {
1N/A print "Function A\n";
1N/A sleep 1;
1N/A func_b();
1N/A}
1N/A
1N/Afunc_a();