<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 XML::DT ;
my $filename = 'ex4.xml';

# tests atribute with name

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