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

my %gcount = ();

%handler=(
     '-outputenc' => 'ISO-8859-1',
     '-default'   => sub{ push( @{$gcount{$q}}, $v{ident} ); toxml;},
);
dt($filename,%handler); 


print "<TABLE>\n\t<TR><TH>Elemento<TH>Lista de Identificadores\n";
foreach $elem (keys %gcount)
{
  print "\t<TR><TD>$elem <TD>@{$gcount{$elem}}\n";
}
print "</TABLE>";