#!/usr/bin/perl
use XML::DT ;
my $filename = shift;
%xml=( 'ARTIGO' => sub{"------------\n$c\n"},
'TEXTO' => sub{""},
'-default' => sub{"$q - $c\n"},
'-outputenc' => 'ISO-8859-1'
);
print &dt($filename,%xml);
#!/usr/bin/perl
use XML::DT ;
my $filename = shift;
%xml=( 'ARTIGO' => sub{"------------\n$c\n"},
'TEXTO' => sub{""},
'-default' => sub{"$q - $c\n"},
'-outputenc' => 'ISO-8859-1'
);
print &dt($filename,%xml);