#!perl
use strict;
use XML::Twig;

my %path;

sub handle_tag {
    my( $twig )= @_;
    my $tag= $_;
    my $path= $tag->path( );
    print $path, "\n"
        unless $path{ $path }++;
    $tag->purge;
};

  my $twig=XML::Twig->new(   
    twig_handlers => 
      {
           _all_ => \&handle_tag,
      },
);

$twig->parsefile( $ARGV[0] );

print "\n-------\n\n";

for my $k (sort keys %path) {
    print "$k\t$path{ $k }\n";
};