use XML::Simple;
my $xs = XML::Simple->new();
my $ref = $xs->XMLin('test.xml');

for my $mandant (@{$ref->{Company}}) 
{
print $mandant->{ID}."\n";
print $mandant->{Name}."\n";
}