##

use strict;
use warnings;
my $xmldoc = XMLin("C:\\dsys.xml");
print Dumper($xmldoc);

##

##

my $vendors = "$xmldoc->{'Catalog'}->{'Vendors'}";

##

##

my $vendors = "$xmldoc->{'Catalog'}->{'Vendors'}";

foreach my $vendor (@{$vendors->{Vendor}}) {
		print $vendor->{name} . "\n";
}