#!/bin/perl -w
#
srand(0);
@lname   = qw/Smith Jones Miller Harris Wilson Brown Gore Bush Clinton Dole/;
@mname   = qw/Bob Sam Harry  Bill Mark Larry Doug Andy/;
@fname   = qw/Barbara Carol Diane Gina Irma Jerry Kim Mary/;
@race    = qw/W W W W W B B B B H H H A A O/;
@sex     = qw/M M M F F/;
@company = qw/IBM Dell Microsoft Sun Oracle Novell Borland Gateway/;
@acode   = qw/222 333 444 555 666 777 888/;
@digit   = qw/0 1 2 3 4 5 6 7 8 9/;
@title   = qw/M M A A A A D D V V V V P P P P P P P C C C C C C C C C C/;
@class   = qw/A S S S T T T T T T T T T T/;
for ($i=0; $i<1000; $i++) {
  $sex=$sex[int rand(@sex)];
  $rec=sprintf("%-10s",$lname[int rand(@lname)]);
  if ($sex eq "m") {
     $rec .= sprintf("%-10s",$mname[int rand(@mname)]);
  } else {
     $rec .= sprintf("%-10s",$fname[int rand(@fname)]);
  }
  $rec .= 17+int rand(83);
  $rec .= sprintf("%s",$race[int rand(@race)]);
  $rec .= $sex;
  $cou=sprintf("%d",rand(58)+1); if (length($cou) == 1) {$cou="0".$cou}
  $rec .= $cou;
  $rec .= sprintf("%-10s",$company[int rand(@company)]);
  $rec .= sprintf("%-3s",$acode[int rand(@acode)]);
  for ($j=0; $j<16; $j++) {
     $rec .=$digit[int rand(@digit)];
   }
   $salary=20000+int rand(80000);
   $rec .= sprintf("%5d",$salary);
  $rec .= sprintf("%s",$title[int rand(@title)]);
  $rec .= sprintf("%s",$class[int rand(@class)]);
  print "$rec\n";
}