##

#!/usr/bin/perl
use XML::Parser;
use XML::Smart;
use Data::Dumper;

my $XML = new XML::Smart(q`
 
    
      192.168.0.1
      192.168.0.2
    
    
      192.168.1.10
      192.168.1.20
    
 
`,'smart');

$XML = $XML->cut_root ;

  ## Add a new server node:
  my $newsrv = {
  os      => 'Linux' ,
  type    => 'Mandrake' ,
  version => 8.9 ,
  address => [qw(192.168.3.201)]
#  address => [qw(192.168.3.201 192.168.3.202)]
  } ;
 
  push(@{$XML->{server}} , $newsrv) ;
$XML->save('newfile.xml') ;

##

##




  
    192.168.0.1
    192.168.0.2
  
  
    192.168.1.10
    192.168.1.20
  
  


##

##


  
    192.168.0.1
    192.168.0.2
  
  
    192.168.1.10
    192.168.1.20
  
  
    192.168.3.201