#!/usr/bin/perl
use XML::DT ;
my $filename = shift;

# Para gerar os vários identificadores vamos usar
# a variável $n como contador de elementos

%handler=(
     '-begin'     => sub{$n=1;},
     '-outputenc' => 'ISO-8859-1',
     '-default'   => sub{$v{ident}="I$n"; $n++; toxml;},
);
print dt($filename,%handler);