Select Code to Download

<Books>
   <Titles Mode="List">
...
    <Title Name="Learning Perl on Win32 Systems"/>
   </Titles>
</Books>

my $filtername = 'Advanced Perl Programming';
my $books_tree= new XML::Twig(twig_roots => {Title[@Name= "$filtername
+"] => 1});

$books_tree-> parsefile('books.xml');
$books_tree->set_att(Name => 'Advanced Perl');