#!/perl/bin/perl -w

use strict;
use XML::Twig;

my $twig= new XML::Twig;

open( XML_OUT, ">output.xml") or die $!;

$twig->parsefile( "RoamAboutAP_173.253.52.82.xml");
my $root= $twig->root; 
my @ds= $root->children;   

foreach my $attr (@ds) { 

	my $look = $attr->parent('rrd')->text;
	print $look;
	
	my $blg= sprintf( "TESTING PLACEMENT");          
	my $eblg= new XML::Twig::Elt( 'Average', $blg); 
	$eblg->paste( 'first_child', $attr);
}

# $twig->set_pretty_print('indented');
$twig->print( \*XML_OUT);

close XML_OUT;