Select Code to Download

#! /usr/bin/perl
use strict;
...
                print "The attrib is " . $node->{att}->{"id"} . " the 
+value is " . $node->text() . "\n";
        }
}

<?xml version="1.0"?>
<xmlfeed>
...
href="http://www.drugstore.com/cat/10661/tmpl/default.asp?catid=15604#
+15448">learn more</a></font>]]></message>
    </availability_messages>
</xmlfeed>