#!/usr/bin/perl use strict; no strict qw(refs); use Fcntl qw(:flock); use Lingua::Ispell qw( spellcheck ); die "$0: \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();