#!/usr/bin/perl -w
# $Id: bench_parser_nothing,v 1.1 2003/09/10 10:13:46 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 $p = new XML::Parser::Lite( Handlers => { 
				                   Char  => sub { print $_[1]; },
				                   Start => sub { shift; # get rid of the parser object
															            my $tag= "<" . shift();
																					while( @_)
																					  { $tag .= " " . shift() . '="' . shift() . '"'; }
																					$tag .=">";
																					print $tag;
													              },
				                   End   => sub { print "</$_[1]>"; },
											               }
                       );
$p->parse( $xml);