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');