#!/usr/bin/perl -w
use strict;
use XML::DT;
#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);

my $message = 0;
my $result = dt($in_file,
	        message  => sub{
		      $message++;
		      $c = "[message $message] $c"; toxml
                } );
print $result if $print;