<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 = shift;

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