Select Code to Download

use XML::Simple;
use Data::Dumper;
...

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

Parsing took 0.567832 seconds
$VAR1 = {
...
                                      }
                      }
        };