#!/usr/bin/perl -w
# $Id: bench_dt_extract,v 1.2 2003/10/10 16:09:48 mrodrigu Exp $
use strict;
use XML::DT;
use simple_benchmark; # to get memory size

use Getopt::Long;

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

dt($in_file,
   message  => sub{ print "$c\n"} );