note
murugu
<code>
#!/usr/bin/perl -w
use strict;
my $sitefile='/app/sites.xml';
my $twig=new XML::Twig;
$twig -> parsefile($sitefile);
my %hash = (name=>"name3",address=>"address3",contact=>"contact3");
my $root=$twig->root;
my $insert = $root->insert_new_elt('last_child', site => {siteid=>"THREE"});
foreach my $element (keys %hash){
$insert->insert_new_elt('last_child',$element,$hash{$element})
}
$root->print;
</code><!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-323803">
<p>Regards,<br>Murugesan Kandasamy<br>use perl for(;;);
</div></div>
857284
857284