open ALL, '</usr/share/lib/dict/words';

    my @stuffed = <ALL>;
    chop @stuffed;
    my $blurt = '';

    # sentence size 3 .. 15

    for ( my $ss = 3 + ( 13 * rand() ); $ss > 0; $ss-- ) {

        my $pick = $stuffed[ ( $#stuffed )* rand() ];
        $blurt .= "$pick ";
    }

    chop $blurt;

    print "$blurt.\n";