How do I add child elements to XML using Perl's XML::Twig?
I have the following XML file: <SOURCE_SERVER> <SERVER HOSTNAME="serv1"> <CIFS_SERVICE NETBIOSNAME="serv1"/> </SERVER> <SERVER HOSTNAME="serv2"> </SERVER> <SOURCE_SERVER> Now, I want to add child <CIFS_SERVICE NETBIOSNAME="serv2"/> to <SERVER HOSTNAME="serv2"> . How do I do this using XML::Twig ? Here is a solution incorporating what I think are reasonable fixes to your question. The code below is based on the filtering example given in the documentation. #!/usr/bin/perl use strict; use warnings; use XML::Twig; my $t = XML::Twig->new( twig_roots => { SERVER => \&update }, twig_print_outside