Hi all fairly new to Perl and are playing with some XML files but cant work out using XML::Twig on how to add extra entries... My XML file looks like this

<sites>
<site siteid="ONE">
   <name>name1</name>
   <address>address1</address>
   <contact>contact1</contact>
</site>
<site siteid="TWO">
   <name>name2</name>
   <address>address2</address>
   <contact>contact2</contact>
</site>
</sites>
[download]

I have code which can successfully read relevant items from the XML

use XML::Twig;

$sitefile='/app/sites.xml';

    $twig=new XML::Twig;
    $twig -> parsefile($sitefile);
    $root=$twig->root;
    @sites=$root->children;
   

foreach $site (@sites){
    print "Site ".$site->att("siteid")."\n";
    #$address = $site->first_child("address")->text;
    #print $address."\n";
}
[download]

but cant work out how i'd add more "sites" and their relevant children using XML::TWIG
any help appreciated thanks A.