c:\@Work\Perl\monks>perl -wMstrict -le
"chomp(my @words = <>);
 ;;
 for (1 .. 5 + rand 20) {
   my @line = map $words[ rand @words ], 0 .. rand 10;
   if ($#line) { $_ = ucfirst for $line[ 1 + rand $#line ] }
   print qq{\u@line.};
   }
"  ..\..\moby\mwords\354984si.ngl
Ouabaio soldiers loob Piedmontite phenylated nol.
Zolle Torque ghbor.
Oxygenicity Subpharyngal gastroscopic ventricular trainways incombining indulgement avidin idiorepulsive.
Understaff.
Becrawls subclavicular Combustive.
Wrestlers occluding cryptonema novelizations epexegesis legpulling deficient publici phalangean Monkeyflower.