####
#!/usr/bin/perl
use XML::LibXML;
$filename = "Office.xml";
my $floor = '1st Floor';
my $bldg = "Building A";
my $parser = XML::LibXML->new();
my $doc = $parser->parse_file("$filename") or die;
my $root = $doc->getDocumentElement();
my $parent = $doc->documentElement;
my $newnode = $doc->documentElement;
my $query = "//node[label = '$bldg']/node[label = '$floor']/label/text()";
if(my($node) = $doc->findnodes($query))
{
my $new_element= $doc->createElement("IP");
$new_element->appendText('10.1.1.1');
$newnode = $parent->addSibling($new_element);
print $newnode -> toString;
}