use strict;
use warnings;

use XML::LibXML qw( );

my $parser = XML::LibXML->new();
my $doc    = $parser->parse_fh(*STDIN);
my $root   = $doc->documentElement();

for my $node ($root->findnodes('//*')) {
    print($node->nodePath(), ': ', $node->nodeName(), "\n");
}