<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
use lib qw(../..);
use XML::DT ;
my $filename = 'ex2.xml';

# pending paths

%handler=(
#    '-outputenc' =&gt; 'ISO-8859-1',
#    '-default'   =&gt; sub{"&lt;$q&gt;$c&lt;/$q&gt;"},
#     'ccc' =&gt; sub{"$q:$c"},
     '//ddd/bbb' =&gt; sub{print "$c";toxml},
#     'ddd' =&gt; sub{"$q:$c"},
#     'bbb' =&gt; sub{"$q:$c"},
#     'eee' =&gt; sub{"$q:$c"},
);
pathdt($filename,%handler); 
print "\n";
</pre></body></html>