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

use Getopt::Long;

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

open( XML, "<$in_file") or die "cannot open $in_file: $!";
while( <XML>) { print if( $print); }
close XML;