mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-12 08:36:05 -04:00
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();
|