TinyBox

# la on dit a perl de pas faire le con mais plutot le malin
use strict;
use warnings;
 
# la on dit a perl de faire du xml propre avec indentation et tout 
 
use XML::Generator ':pretty';
 
# print c'est pour afficher, xmldecl c'est pour faire un prologue xml
# apres le reste c'est des balises 
print xmldecl(encoding => 'utf-8') , html(
    head(
        title('this force')
    ) , body (
        map {
            # chaque element du tableau est un paragraphe
            p($_)
        } qw[ those are words for test ]
    )
)
;