my $file1=shift;
use XML::Simple;
use Data::Dumper;

my $xml;
open (IN, "<$file1") || die "[r] '$file1' ($!)";
{
	local $/ = undef;
	$xml=<IN>;
}
close(IN);

my $ref = XMLin($xml);

foreach (keys %{$ref}) {
	print $_." ".$ref->{$_}." "."\n";
	}