#!/usr/bin/env perl
use strict;
use warnings;
use Data::Dumper;
use XML::Twig;

my $twig = XML::Twig -> parsefile ( 'data/misc/test.xml' ); 

foreach my $node ( $twig -> get_xpath ( '//*' )  ) {
    print $node -> tag, ": ", $node -> text,"\n";
}