## The data:
<?xml version="1.0" encoding="iso-8859-1"?>
<hosts>
  <server os="linux" type="redhat" version="8.0">
    <address>192.168.0.1</address>
    <address>192.168.0.2</address>
  </server>
  <server address="192.168.2.100" os="linux" type="conectiva" version="9.0"/>
</hosts>

##</code><code>##

  my $xml = new XML::Simple();
  my $tree = $xml->XMLin(DATA]);

  my $addr0 = $tree->{hosts}{server}[0]{address}[0] ;
  my $addr1 = $tree->{hosts}{server}[1]{address} ;

##</code><code>##

  my $XML = XML::Smart->new(DATA) ;
  
  my $addr0 = $XML->{hosts}{server}[0]{address}[0] ; ## return {address}[0]
  ## ...or...
  my $addr0 = $XML->{hosts}{server}{address} ;       ## return {address}[0]
  
  my $addr1 = $XML->{hosts}{server}[1]{address}    ; ## return {address}
  ## ...or..
  my $addr1 = $XML->{hosts}{server}[1]{address}[0] ;  ## return {address}

##</code><code>##

  my $addr = $XML->{hosts}{server}('type','eq','conectiva'){address} ;

##</code><code>##

## Data:
<foo port="80">content<i>a</i><i>b</i></foo>

## Tree of the data:

$HASH = (
foo => { i => ['a','b'] , CONTENT => 'content' }
);

##</code><code>##

  my $cont = $XML->{foo} ;
  ## ...or...
  my $cont = $XML->{foo}->content ;

  print "<<$cont>>\n" ; ## print: <<content>>
  $content .= 'x' ; ## Append data.

##</code><code>##

  my $data = $XML->data ;

  ## Directly to the file:
  my $data = $XML->save('new.xml') ;