#!/usr/bin/perl -w
use strict;

my $minlen=6;
my $maxlen=10;

use Crypt::GeneratePassword qw(word chars);
my  $word = chars($minlen,$maxlen);
print "$word\n";