#!/usr/bin/perl

my @chars = (32..126);
my $len = int rand(6) + 6;
my $password = '';

for(0..$len)
{
  $password .= chr($chars[int rand($#chars)]);
}

print "${password}\n";