my $xml = eval { XMLin($xml_results) } or die(@$);
print Dumper($xml);