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