#!/usr/bin/env perl
#
#  vdm2.pl - Charlie Merland (Askelon) - 15/01/2009
#
#        utilisation du module WWW-VieDeMerde-0.02
#        et de l'API VDM 1.2 
#

use WWW::VieDeMerde;
use Encode;
    
    $get = WWW::VieDeMerde->new();
    $vdm = encode("utf8", $get->random()->texte);
            
            # On place un compteur, de manière à afficher un retour à la ligne
            # tous les 14 mots. Sinon on laisse courir.
            # Editer $retour à votre convenance.

            print "::";
            @split = split(/ /, $vdm);
            $retour=14;
            $c=1;
            foreach $vdm (@split)
            {
                $c++;
                    if ( ($c % $retour) == 0 ) { print " $vdm\n  "; }
                        else { print " $vdm"; }
                        }

                        print "\n";