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

my $t0 = [gettimeofday];

my $config = XMLin();
my $elapsed = tv_interval ( $t0 );

print "First Parsing took $elapsed seconds\n";
$config = undef;
$t0 = [gettimeofday];
$config = XMLin();
$elapsed = tv_interval ( $t0 );
print "Second Parsing took $elapsed seconds\n";

timethis (1000, '$config = undef; $config = XMLin()');

__OUTPUT__

First Parsing took 0.312 seconds
Second Parsing took 0.016 seconds
timethis 1000:  6 wallclock secs ( 5.13 usr +  0.53 sys =  5.66 CPU) @ 176.80/s (n=1000)