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

use Getopt::Long;

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

my $xml= read_file( $in_file);

my $in_message;
my $p = new XML::Parser::Lite( Handlers => { 
				                   Char  => sub { print $_[1] if( $in_message); },
				                   Start => sub { $in_message=1 if( $_[1] eq 'message') },
				                   End   => sub { if( $_[1] eq 'message') 
															              { print "\n"; $in_message=0 ; }
																			 	},
											               }
                       );
$p->parse( $xml);