use XML::Smart ;

  my $XML = XML::Smart->new('file.xml') ;
  
  ## Change the root:
  $XML = $XML->{hosts} ;
  
  ## Get the address [0] of server [0]:
  my $srv0_addr0 = $XML->{server}[0]{address}[0] ;
  ## Or just:
  my $srv0_addr0 = $XML->{server}{address} ;
  
  ## Get the server where the attibute 'type' eq 'suse':
  my $server = $XML->{server}('type','eq','suse') ;

  ## Add a new server node:
  my $newsrv = {
  os      => 'Linux' ,
  type    => 'Mandrake' ,
  version => 8.9 ,
  address => [qw(192.168.3.201 192.168.3.202)]
  } ;
  
  push(@{$XML->{server}} , $newsrv) ;
  
  ## Get/rebuild the XML data:
  my $xmldata = $XML->data ;
  
  ## Save in some file:
  $XML->save('newfile.xml') ;
  
  ## Send through a socket:
  print $socket $XML->data(length => 1) ;
  ## show the 'length' in the XML header to the
  ## socket know the amount of data to read.

__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 os="linux" type="suse" version="7.0">
    <address>192.168.1.10</address>
    <address>192.168.1.20</address>
  </server>
  <server address="192.168.2.100" os="linux" type="conectiva" version="9.0"/>
</hosts>