#!/usr/bin/perl
use XML::DT ;
my $filename = shift;

%handler=(
     '-outputenc' => 'ISO-8859-1',
     '-default'   => sub{"<$q>$c</$q>"},
     'titulo' => sub{"<H2>$c</H2>"},
     'poema' => sub{"$c"},# remember $v{tipo}
     'corpo' => sub{"$c"},
     'terno' => sub{"<P>$c<P>"},
     'data' => sub{"<P>($c)<P>"},
     'autor' => sub{"<I>($c)</I><P>"},
     'lugar' => sub{"<B>$c</B>"},
     'quadra' => sub{"<P>$c<P>"},
     'nome' => sub{"<B>$c</B>"},
     'verso' => sub{"$c<BR>"},
);
print dt($filename,%handler);