my $Tree = new XML::Twig ( 
  TwigHandlers => { 
    book => 
      sub{
        $_ -> set_att( name => $newname);
      }
  } 
);
$Tree -> parsefile( "$BooksFile");