use strict;
use warnings;

use WWW::Lipsum;

my $lipsum = WWW::Lipsum->new();

print "STANDARD-CALL\n";
print "=============\n";
print $lipsum->generate(), "\n\n";

my @lists = $lipsum->generate(amount => 10,
                              what   => 'paras',
                              start  => 'no',
                              html   => 1
                              );

print "PARAGRAPHEN MIT HTML\n";
print "====================\n";
print join("\n",@lists),  "\n";