1	#!/usr/bin/perl
     2	use XML::DT ;
     3	my $filename = shift;
       
     4	%handler=(
     5	     '-outputenc' => 'ISO-8859-1',
     6	     '-default'   => sub{""},
     7	     'title'      => sub{"<b>$c</b>"},
     8	     'author'     => sub{"  <i>$c</i>"},
     9	     'article'    => sub{"$c<br>"}
    10	   );
    11	print dt($filename,%handler);