Something

print "Min. Chars: ";
$min = <STDIN>;
print "\nMax. Chars: ";
$max = <STDIN>;
print "\nWordlist name(name.txt): ";
$name = <STDIN>;
chomp($min);
chomp($max);
chomp($name);
print "\nGenerating wordlist...\n";
open(INFILE,">",$name) or die("I/O File Error!");
$word = "";
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";
}