#!/usr/bin/perl

use strict;
no strict qw(refs);
use Fcntl qw(:flock);
use Lingua::Ispell qw( spellcheck );

die "$0: <logfile>\n" unless(@ARGV==1);
open(LOG,">>$ARGV[0]") || die "$!: $ARGV[0]";
flock(LOG,LOCK_EX) || die "Can not get lock on: $ARGV[0]";

my(@keys) = ('a'..'z',' ',' ',' ',' ',' ');
my($word,$chr,$count);

while($chr=$keys[rand @keys]) {
    if ($chr eq ' ' || length(($word)? $word : 1) ==15) { 
        print $word,"\n" if((spellcheck($word))->{'type'} eq 'ok'); 
        $word = "";
    }
    $word .= $chr if($chr ne ' ');
} 
close(LOG);
exit();
[download]

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/
[download]