#!/usr/bin/perl use lib qw(../..); use XML::DT ; my $filename = 'ex2.xml'; # pending paths %handler=( # '-outputenc' => 'ISO-8859-1', # '-default' => sub{"<$q>$c</$q>"}, # 'ccc' => sub{"$q:$c"}, '//ddd/bbb' => sub{print "$c";toxml}, # 'ddd' => sub{"$q:$c"}, # 'bbb' => sub{"$q:$c"}, # 'eee' => sub{"$q:$c"}, ); pathdt($filename,%handler); print "\n";