#!/usr/bin/perl

# bname.pl
# Generate a name for Brock

@cons = qw(q w r t s d f g z x c v );
#("b", "c", "d", "f", "g", "h", "j", "k", "l", "m", "n", "p", "q", "r", "s", "t", "v", "w", "x", "y", "z", "ch");

@vows = qw(e a);

# ("a", "e", "i", "o", "u", "y");

$name = "";

for($i=0;$i<5;$i++)
{
  $name .= $cons[int(rand ($#cons + 1))];
  $name .= $vows[int(rand ($#vows + 1))];
}

print "Content-type: text/html\n\n";
print $name,"\n";

# EOF