blob: 5340c82b2cdce29a1e892a8886088d45d696a172 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!./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();
|