Select Code to Download

use strict;
use XML::Simple qw(XMLin);
...
foreach my $author (@{$data->{AuthorList}{Author}}) {
    print "$author->{ForeName} $author->{LastName}\n";
}

use strict;
use XML::Rules;
...
foreach my $author (@{$data->{Authors}}) {
    print "$author->{ForeName} $author->{LastName}\n";
}