mirror of
https://github.com/Stichting-MINIX-Research-Foundation/netbsd.git
synced 2025-09-13 00:57:28 -04:00
19 lines
186 B
Perl
Executable File
19 lines
186 B
Perl
Executable File
#!./perl -w
|
|
|
|
sub func_c {
|
|
print "Function C\n";
|
|
}
|
|
|
|
sub func_b {
|
|
print "Function B\n";
|
|
my $b = "B" x 100_000;
|
|
func_c();
|
|
}
|
|
|
|
sub func_a {
|
|
print "Function A\n";
|
|
func_b();
|
|
}
|
|
|
|
func_a();
|