Select Code to Download

<hosts>
  <host name="jimmy">
...
    <location>hell</location>
  </host>
</hosts>

use XML::Simple;
use Data::Dumper;
...
# read XML file
my $data = $xml->XMLin("/tmp/hosts.xml");
print Dumper($data);

$VAR1 = {
          'host' => {
...
                             }
                  }
        };