use XML::Simple qw(:strict);

##</code><code>##

use strict;
use XML::Simple qw(:strict);

my $xml =q(<?xml version='1.0'?>
<library>
  <book>
    <isbn>0596001320</isbn>
    <title>Learning Perl, 3rd Edition</title>
    <author>Randal L. Schwartz</author>
    <author>Tom Phoenix</author>
  </book>
  <book>
    <isbn>1565922204</isbn>
    <title>Advanced Perl Programming</title>
    <author>Sriram Srinivasan</author>
  </book>
  <book>
    <isbn>076455106X</isbn>
    <title>Guitar for Dummies</title>
    <author>Mark Phillips</author>
    <author>John Chappell</author>
  </book>
</library>
);

my $library = XMLin($xml);

foreach my $book (@{$library->{book}}) {
  print "$book->{title}\n";
  print "  $_\n" foreach(@{$book->{author}});
}

##</code><code>##

No value specified for 'forcearray' option in call to XMLin() at ./stricttest.pl line 26

##</code><code>##

my $library = XMLin($xml, forcearray => [ qw(book author) ]);

##</code><code>##

No value specified for 'keyattr' option in call to XMLin() at ./stricttest.pl line 26

##</code><code>##

my $library = XMLin($xml,
  forcearray => [ qw(book author) ],
  keyattr    => { book => 'isbn' }
);

print $library->{book}->{1565922204}->{title}, "\n";

##</code><code>##

my $library = XMLin($xml, forcearray => [ qw(book author) ], keyattr => [] );

##</code><code>##

Learning Perl, 3rd Edition
  Randal L. Schwartz
  Tom Phoenix
Advanced Perl Programming
  Sriram Srinivasan
Guitar for Dummies
  Mark Phillips
  John Chappell

##</code><code>##

my $library = XMLin($xml,
  forcearray => [ qw(author) ],
  keyattr    => { book => 'isbn' }
);

print $library->{book}->{1565922204}->{title}, "\n";

##</code><code>##

<book> set in keyattr but not in forcearray at ./stricttest.pl line 26