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