my $twig= XML::Twig->new(
  TwigHandlers => {
      item => \&id_Tag
      }
);

###############################
sub id_Tag {
###############################
   my($t, $idTag)= @_;

   return unless($idTag->{att}->{Name} eq 'TaxId');
   $idText = $idTag->text();
   print "TAX_ID: ",$idText,"\n";
   # Release memory of processed tree up to here
   $t->purge();
}