##
#!/usr/bin/perl
# use module
use XML::Simple;
use Data::Dumper;
# create object
$xml = new XML::Simple (KeyAttr=>[]);
# read XML file
$data = $xml->XMLin("hosts.xml");
foreach $e (@{$data->{host}})
{
print $e->{name}, "\n";
print $e->{function}, "\n";
}