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

use Getopt::Long;

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

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

print map { $_->getFirstChild->toString , "\n" }
          $dom->getElementsByTagName( 'message');