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