use Data::Dumper;
die Dumper $xml;