makenames.pl revision 247bf378605811d695e968dbe930a7fc45c0038e
#
*
*
# $Id: makenames.pl,v 1.3 2011/09/02 21:15:35 each Exp $
use strict;
my $len = 10;
srand;
my $name = "";
for (my $j = 0; $j < $len; $j++) {
my $r = rand 35;
}
print "$name" . ".example\n";
}