<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{toxml},
     -type =&gt; { ul =&gt; SEQH },
     li =&gt; sub{$c},
     '//ul[@sort]' =&gt; sub{ $c = [sort {$a-&gt;{-c} cmp $b-&gt;{-c}} @$c]; 
                  toxml }, # 1 occurrences;
);
print pathdt($filename,%handler);
</pre></body></html>