use XML::Simple;
use Data::Dumper;
use Time::HiRes qw( gettimeofday tv_interval );

my $t0 = [gettimeofday];
my $config = XMLin();
my $elapsed = tv_interval ( $t0 );

print "Parsing took $elapsed seconds\n";
print Dumper($config);