#!/usr/bin/perl -w
# $Id: bench_dom_replace,v 1.5 2003/10/10 15:54:04 mrodrigu Exp $
use strict;
use simple_benchmark; # to get memory size
use XML::DOM;

use Getopt::Long;

my( $in_file, $print);
GetOptions( 'print!' => \$print, 'in_file=s' =>\$in_file); 
$in_file ||= 'test.xml';
$print= 1 unless( defined $print);

my $doc= XML::DOM::Parser->new()->parsefile( $in_file);

my $message_nb=0;
foreach my $message ($doc->getElementsByTagName( 'message'))
  { $message_nb++;
    my $prefix= $doc->createTextNode( "[message $message_nb] " );
		my $text_node= $message->getFirstChild;
    $message->insertBefore( $prefix, $text_node);
  }

print $doc->toString if( $print);