#!/usr/bin/perl

use XML::DT ;

my $filename = shift;

%xml=( -html => 1,
       '-outputenc' => 'ISO-8859-1',
       'font' => sub{$c},
       'a' => sub{toxml("href",{a=>$c},$v{href})},
     );

print dt($filename,%xml);