Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/test2_t

sub foo {
    print "in sub foo\n";
    bar();
}

sub bar {
    print "in sub bar\n";
}

sub baz {
    print "in sub baz\n";
    bar();
    bar();
    bar();
    foo();
}

bar();
bar();
baz();
foo();