my $xml = new XML::Simple;
my $dec = '<?xml version="1.0" encoding="utf-8"?>';
print $xml->XMLout($VAR2, XMLDecl => $dec, keyattr => [], RootName => 'TestRun');