#!/usr/bin/env perl
use v5.10;
use strict;
use warnings;

use DBI;
use Dreamlands::Dreamer qw/generate_paragraph/;

my $paragraphs = shift;
$paragraphs = 1 unless defined $paragraphs;

for (1..$paragraphs) {
    my @words = generate_paragraph();
    say "@words";
    say "" if $_ < $paragraphs;
}