#!/usr/bin/perl

use HTML::BoxML;

setstyle("noborder");
print 
  page([ ftitle("","Página exemplo", "BOXml"),
         cel("Ver também...."),
         pv([
           caixa("Versão trotskista",[]),
           ph([ 
             caixa("Indice",
                 [  cel("Apresentação"),
                    "exemplo 1",
                    "ex2",
                    "ex3",
                    "ex4",
                    "ex5",
                    cel("Versão trotskista",(bgcolor=>"green"))],
                 ( width =>"20\%")),
             caixa("A utilidade do Boi",
                 [ cel("Versão trotskista"),
                   "Jose Joao",
                   "Jose Joao",
                   "Jose Joao",
                   "Jose Joao",]) ]),
           caixa("A utilidade do Boi",
                 [ cel("Versão trotskista"),
                   "Viva a Mariana"],
                 ( width =>"100\%"))]),
           ftitle("jj\@di.uminho.pt","Construído por BOXml", "HTML trotskista"),
]
  );