Select Code to Download

<opt>
  <person firstname="Joe" lastname="Smith">
...
     <email>bob@smith.com</email>
  </person>
</opt>

use XML::Simple;
use strict;
...
my $config = XMLin("testFile.xml",forcearray => ['person','email']);
my @persons = $config->{person};
print "Size:".@persons;