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

%handler=(
    #'-default'   => sub{toxml},
     -type => { ul => SEQH },
     li => sub{$c},
     '//ul[@sort]' => sub{ $c = [sort {$a->{-c} cmp $b->{-c}} @$c]; 
                  toxml }, # 1 occurrences;
);
print pathdt($filename,%handler);