#!/usr/bin/perl -w
# $Id: bench_tree_builder_replace,v 1.2 2003/09/19 18:52:26 mrodrigu Exp $
use strict;
use simple_benchmark; # to get memory size

use XML::TreeBuilder;

use Getopt::Long;

my( $in_file);
GetOptions( 'in_file=s' =>\$in_file); 
$in_file ||= 'test.xml';

my $root= XML::TreeBuilder->new();
$root->parse_file( $in_file);

my $i=0;
foreach  ($root->find_by_tag_name( 'message'))
  { $i++; $_->unshift_content( "[message $i] "); }

print $root->as_XML;