use warnings;
use strict;

use Data::Dumper;
use XML::Twig;

my $t= XML::Twig->new
(
	twig_handlers =>
	{ 
		'/foo/bar' => sub 
		{ 
			my $bay = $_->get_xpath('bay');
			my $baz = $_->get_xpath('baz');
			
			print $bay->att("V");
			print $baz->att("V");
			
		} 
	}
);

$t->parse(join("", <DATA>));
__DATA__
<foo>
	<bar>
		<bay V="A" />
		<baz V="B" />
	</bar>
</foo>