perlmonksrule(9);
sub perlmonksrule
{
	if ($_[0]) { perlmonksrule($_[0]-1); }
	$_ = (caller(0))[3]; 
	s/sr/s r/;
	print /::(.*)$/,"!\n";
}

##</code><code>##

$a=9;a();sub a{a()if($a--);print"perlmonks rule!\n";}