Select Code to Download

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Import format="3.0" fileId="54630000-3141-1404-4310-7F0000014030" fil
+eCreationDateTime="2012-07-23T06:04:31.415" catalogSource="TLCMz">
...
        </Vendors>
    </Catalog>
</Import>

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";
}