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

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