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

print header('text/plain');

my $xs1 = XML::Simple->new();
my $doc = $xs1->XMLin('files/camelids.xml');

foreach my $key (keys (%{$doc->{species}})){
   print $doc->{species}->{$key}->{'common-name'} . " ($key) ";
   print $doc->{species}->{$key}->{conservation}->{status} . "\n";
}