#! /usr/bin/perl
use strict;
use XML::Twig;
my $gobjXML;
my $ghshAvail = {};

         eval {

                $gobjXML = XML::Twig->new(
                            twig_handlers => {
                                    availability_messages => \&xxx
                                        }
                            );
                $gobjXML->parsefile("test.xml");
                $gobjXML->purge();
                $gobjXML->dispose();
                undef($gobjXML);
                };

sub xxx
{
        my($objt,$objnode) = @_;
        my $exp = qq(./message[\@id]);

        foreach my $node ($objnode->get_xpath($exp))
        {
                if( ! defined($ghshAvail->{$node->{att}->{'id'}}))
                {
                        $ghshAvail->{$node->{att}->{'id'}} = $node->text();
                }
                print "The attrib is " . $node->{att}->{"id"} . " the value is " . $node->text() . "\n";
        }
}

##</code><code>##

<?xml version="1.0"?>
<xmlfeed>
    <availability_messages>
        <message id="a1"><![CDATA[temporarily out of stock - will ship in 1-2 weeks]]></message>
        <message id="a2"><![CDATA[This item is temporarily<br> out of stock and will<br> ship in approximately<br> <b>1 - 2 weeks.</b> <font size=1><a href="http://www.drugstore.com/cat/10661/tmpl/default.asp?catid=15604#15448">learn
more</a></font>]]></message>
        <message id="a3"><![CDATA[currently in stock]]></message>
        <message id="a4"><![CDATA[* This item is currently <b>in stock.</b> *]]></message>
        <message id="a5"><![CDATA[temporarily out of stock - will ship in 2-4 weeks]]></message>
        <message id="a6"><![CDATA[This item is temporarily<br> out of stock and will<br> ship in approximately<br> <b>2 - 4 weeks.</b> <font size=1><a href="http://www.drugstore.com/cat/10661/tmpl/default.asp?catid=15604#15448">learn
more</a></font>]]></message>
        <message id="a7"><![CDATA[temporarily unavailable from manufacturer - will ship in 4-6 weeks]]></message>
        <message id="a8"><![CDATA[This item is currently unavailable<br> from the manufacturer and will<br> ship in approximately <b>4 - 6 weeks.</b><br> <font size=1><a
href="http://www.drugstore.com/cat/10661/tmpl/default.asp?catid=15604#15448">learn more</a></font>]]></message>
    </availability_messages>
</xmlfeed>