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

%handler=(
#    '-outputenc' => 'ISO-8859-1',
    '-default'   => sub{$c},
     -type => { news => "SEQH"},
#        'event' => sub{"$q:$c"},# remember $v{t},$v{date}
#        'work' => sub{"$q:$c"},
     'news' => sub{$c = [ sort {$a->{-c} cmp $b->{-c}} @$c ];toxml() },
);

print print Dumper(dt($filename,%handler));