use XML::LibXML;
 my $parser = XML::LibXML->new();
 my $doc    = $parser->parse_file("output.xml");

  my $query  = "//anonotaion";

  my($node)  = $doc->findnodes($query);
  $node->setData('$appname');

  print $doc->toString;