1	#!/usr/bin/perl
     2	use XML::DT ;
     3	my $filename = shift;
       
     4	%p_proc=(
     5	     '-default'    => sub{"$c"},
     6	     'proceedings' => sub{"Proceedings $c"},
     7	     'abstract'    => sub{""},
     8	     'article'     => sub{ dt($v{file}, %p_art) },
     9	     'chair'       => sub{"Chair: $c"},
    10	);
       
    11	%p_art=(
    12	    '-default'     => sub{""},
    13	     'title'       => sub{"  $c"},
    14	     'author'      => sub{"    <i>$c</i>"},
    15	     'article'     => sub{"$c"},
    16	);
       
    17	print dt($filename,%p_proc);