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