my $parser = XML::LibXML->new();
   my $doc    = $parser->parse_file($filename);
   my $root = $doc->getDocumentElement;
   print $doc->toString;
   my $query1 = '//remote[@name="korg"]/';
   my ($node1)  = $doc->findnodes($query1);
   $node1->setData('other');