for($i=$min; $i<($max+1); $i++) { #length
	until(length($word == $i)) {	
		for($c=33; $c<127; $c++) { #letter
			$word = $word . chr($c);
		}			
	}
	print INFILE "$word\n";
}