21 lines
216 B
Perl
Executable File
21 lines
216 B
Perl
Executable File
#!./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();
|