use strict;
use XML::Rules;

my $parser = XML::Rules->new(
	stripspaces => 7,
	rules => {
		Vendor => sub {return $_[1]->{vendorUniqueKey} => $_[1]->{name}},
		Vendors => sub {
			my ($tag, $vendors) = @_;

			print "We have " . scalar(keys %$vendors) . " vendors\n";
			foreach (keys %$vendors) {
				print " $_ => $vendors->{$_}\n";
			}
			return;
		},
		':default:' => ''
	}
);

$parser->parse(\*DATA);

__DATA__
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<Import format="3.0" fileId="54630000-3141-1404-4310-7F0000014030" fileCreationDateTime="2+012-07-23T06:04:31.415" catalogSource="TLCMz">
    <Catalog>
        <Vendors>
          <Vendor name="Allen Systems" vendorUniqueKey="ALLENGRP"/>
          <Vendor name="Aonix North America" vendorUniqueKey="AONIX"/>
          <Vendor name="Beta Systems Software" vendorUniqueKey="BETASYS"/>
          <Vendor name="BMC Software" vendorUniqueKey="BMC"/>
        </Vendors>
    </Catalog>
</Import>