Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
-<ArrayOfBooks>
...
<Released>8/16/1944</Released>
</Book>
</ArrayOfBooks>

my $twig = XML::Twig->new(
                          twig_handlers => {  '/ArrayOfBooks/Book' => 
+\&sect} 
...
my ($leaf) = @_;
print $key;
}