Select Code to Download

 
   <book>
      <author>Book 1 author 1</author>
...
      <title>Book 1 title</title>
      <isbn>Book1ISBN</isbn>
   </book>

 #!/usr/bin/perl

# Script to illustrate how to parse a simple XML file
...
my $booklist = XMLin('booklist.xml');

print Dumper($booklist);

$VAR1 = {
          'book' => {
...
                    }

        }

$VAR1 = {
          'book' => {
...
                                                              }

        }