use strict;
use warnings;

use XML::Twig;

my $xml = <<XML
<foo>
   <bar>
      <bay V="A" />
      <baz V="B" />
   </bar>
</foo>
XML

my $t = XML::Twig->new
(
  twig_handlers => { '/foo/bar' => sub
      {
         my $bay = $_->first_child('bay');
         my $baz = $_->first_child('baz');

         print $bay->att("V");
         print $baz->att("V");
       }
   }
);

$t->parse ($xml);

##</code><code>##

./xml_test1.pl
syntax error at ./xml_test1.pl line 17, near "my "
Global symbol "$t" requires explicit package name at ./xml_test1.pl line 17.
Can't use global $_ in "my" at ./xml_test1.pl line 21, near "= $_"
syntax error at ./xml_test1.pl line 26, near "}"
Execution of ./xml_test1.pl aborted due to compilation errors.