use strict;
use XML::Twig;

my $parser = new XML::Twig(
    twig_print_outside_roots => 1,
    twig_roots               => {
        'Title[@Name="Advanced Perl Programming"]' =>
            sub {
                my ( $tree, $element ) = @_;
                $element->set_att( Name => 'Advanced Perl' );
                $element->print;
            }
    }
);

$parser->parse_file('books.xml');