#!/usr/bin/perl

#
# goal: 5 seconds !
#

use XML::Structured;
use Time::HiRes;
use ABXML;

my $dtd = $ABXML::primary;

$| = 1;
print "reading\n";
my $now = Time::HiRes::time();
my $d = XMLinfile($dtd, "/tmp/primary.xml");
my $nowd = Time::HiRes::time() - $now;
print "-> $nowd\n";

print "writing\n";
$now = Time::HiRes::time();
XMLout($dtd, $d);
$nowd = Time::HiRes::time() - $now;
print "-> $nowd\n";

