{ #(1)
	my $depth = -1;
	sub recurse { #(2)
		++$depth;
		print +("   .") x $depth . "current depth:$depth\n" ;
		recurse() if $depth < 3;
		print +("   .") x $depth . "current depth:$depth\n" ;
		--$depth;
	} #(3)
} #(4)

recurse(); # (5)

##</code><code>##

current depth:0
   .current depth:1
   .   .current depth:2
   .   .   .current depth:3
   .   .   .current depth:3
   .   .current depth:2
   .current depth:1
current depth:0