The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
WSNYDER / Verilog-Perl-3.444 / verilog / v_recursive.v 
module v_recursive ();
   parameter DEPTH = 1;
   generate
      if (DEPTH > 1) begin : rec
	v_recursive #(.DEPTH(DEPTH-1)) recurse ();
      end
   endgenerate
endmodule