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

my $XML = new XML::Smart(q`
 <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>
 </hosts>
`,'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') ;