use XML::Simple;

my $file = 'customers.xml';

my $doc = XMLin($file, KeyAttr=>[]);

# Iterate over all customers
print "Iterate over all customers";
foreach $cust (@{$doc->{customer}})
{
	print $cust->{company}, "\n";
	print $cust->{address}->{street}, "\n";
	print $cust->{address}->{city}, , ", ", $cust->{address}->{country}, "\n";
	print "\n";
}