% perl test.pl
foo(bar, test) called by main: test.pl: 9
test(bar, test) called by main: test.pl: 19
test returned to foo
foo returned to top level
fuu(bar, test) called by main: test.pl: 12
test(bar, test) called by main: test.pl: 12
fuu returned to top level