cddl/contrib/dtracetoolkit/Code/Perl/func_malloc.pl

   1 #!./perl -w
   2
   3 sub func_c {
   4         print "Function C\n";
   5 }
   6
   7 sub func_b {
   8         print "Function B\n";
   9         my $b = "B" x 100_000;
  10         func_c();
  11 }
  12
  13 sub func_a {
  14         print "Function A\n";
  15         func_b();
  16 }
  17
  18 func_a();