#!/usr/bin/perl

#undef $/;
#$/='';

use XML::DT;
print toxml({ -q => "html",
              -c => { -q => "head",
                      -c => { -q => "title",
                              -c => "Título da pagina" }}}),"\n\n";

print toxml({ -q => "html",
              -c => { -q => "head",
                      -c => [ { -q => "title1",
                                -c => "Título da pagina" },
                              { -q => "title2",
                                -c => "Título da pagina" }
                            ]

             }}),"\n\n";