Select Code to Download

<?xml version="1.0" encoding="UTF-8"?>
<books>
  <!-- Programming Perl 3ed -->
...
    <isbn>0-555-00178-0</isbn>
  </book>
</books>

my $xl=XMLin('C:/perlpractice/dec8.xml',ForceArray=>1);
for$key(keys %$xl)
...
print $s;
}
}