Select Code to Download

use warnings;
use strict;
...
my %node = %$p2;
print $node{"att"}{"Name"}."\n";
}

__DATA__
<Books>
...
Programming Perl
Advanced Perl Programming
Learning Perl on Win32 Systems