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