#!/usr/bin/perl

use strict;
use warnings;

my @words = <DATA>;
chomp @words;
my $length = 5 + 20*rand();
{ use integer; $length += 0; }