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

%handler=(
     '-default'   => sub{$elem{$q}++;""},
);
dt($filename,%handler); 

print "<TABLE>\n\t<TR><TH>Elemento<TH>Nº de ocorrências\n";
for $i (keys %elem)
{
  print "\t<TR><TD>$i <TD>$elem{$i}\n";
}
print "</TABLE>";