use strict;
use warnings;
use XML::Twig;

my $t= XML::Twig->new(
	twig_handlers => {
		AMS => sub {
			print $_->{att}{Asset_Class}." has name ".$_->{att}{Asset_Name}."\n";
		}
	})->parsefile('test.xml');