<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl

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

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

print toxml({ -q =&gt; "html",
              -c =&gt; { -q =&gt; "head",
                      -c =&gt; [ { -q =&gt; "title1",
                                -c =&gt; "TÃ­tulo da pagina" },
                              { -q =&gt; "title2",
                                -c =&gt; "TÃ­tulo da pagina" }
                            ]

             }}),"\n\n";

</pre></body></html>