Select Code to Download

use strict;
use warnings;
...

funky(0);
monkey(0);

$ perl recurse.pl
funkybefore recurse: count=0, str1=0
...
monkey  after recurse:  count=2, str=8
monkey after recurse:  count=1, str=4
monkeyafter recurse:  count=0, str=0