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

%handler=(
#    '-outputenc' => 'ISO-8859-1',
#    '-default'   => sub{"<$q>$c</$q>"},
     'body' => sub{
       # occurred 1 times
       "$q:$c"
     },
     'descrip' => sub{
       # remember attributes $v{type}
       # occurred 2 times
       "$q:$c"
     },
     'encodingDesc' => sub{
       # occurred 1 times
       "$q:$c"
     },
     'fileDesc' => sub{
       # occurred 1 times
       "$q:$c"
     },
     'langSet' => sub{
       # remember attributes $v{xml:lang}
       # occurred 2 times
       "$q:$c"
     },
     'martif' => sub{
       # remember attributes $v{type},$v{xml:lang}
       # occurred 1 times
       "$q:$c"
     },
     'martifHeader' => sub{
       # occurred 1 times
       "$q:$c"
     },
     'p' => sub{
       # remember attributes $v{type}
       # occurred 2 times
       "$q:$c"
     },
     'sourceDesc' => sub{
       # occurred 1 times
       "$q:$c"
     },
     'term' => sub{
       # remember attributes $v{tid}
       # occurred 2 times
       "$q:$c"
     },
     'termEntry' => sub{
       # remember attributes $v{id}
       # occurred 1 times
       "$q:$c"
     },
     'termNote' => sub{
       # remember attributes $v{type}
       # occurred 1 times
       "$q:$c"
     },
     'text' => sub{
       # occurred 1 times
       "$q:$c"
     },
     'tig' => sub{
       # occurred 2 times
       "$q:$c"
     },
);
print dt($filename,%handler);