!/usr/bin/perl -w
use Text::Wrap;
use strict;

my $num = shift or die "num?\n";

my @chars = ( "a" .. "z", 0 .. 9 );

for my $i (0 .. $num) {

    my $name = join("", @chars[ map { rand @chars } ( 1 .. 2+int(rand(8)) )]);
    my @io   = map { "p${name}${_}" } (0..int(rand(100)));
    my @hier = map { "m${name}${_}" } (0..int(rand(20)));
    my @leaf = map { "s${name}${_}" } (0..int(rand(200)));

    print "module ${name} ( ", wrap('', '  ', join(", ", @io)), "\n);\n";
    print "  inout  $_;\n" foreach @io;
    print "  wire   $_;\n" foreach @io;

    for my $leaf (@leaf) {
        my @conn = map { ".P${name}${_} (n${name}${_})" } (0..int(rand(5)));
        print "$leaf u_$leaf ( ", wrap('', '  ', join(", ", @conn)), "\n);\n";
    }

    for my $hier (@hier) {
        my @conn = map { ".p${name}${_} (n${name}${_})" } (0..int(rand(100)));
        print "$hier u_$hier ( ", wrap('', '  ', join(", ", @conn)), "\n);\n";
    }
    print "endmodule\n\n";
}