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