Select Code to Download

<?xml version="1.0" encoding="iso-8859-1" ?>
<?meta name="GENERATOR" content="XML::Smart/1.6.9 Perl/5.008008 [cygwi
+n]" ?>

#!/usr/bin/perl
use XML::Parser;
...
 
  push(@{$XML->{server}} , $newsrv) ;
$XML->save('newfile.xml') ;

<?xml version="1.0" encoding="iso-8859-1" ?>
<?meta name="GENERATOR" content="XML::Smart/1.6.9 Perl/5.008008 [cygwi
+n]" ?>
...
  </server>
  <server address="192.168.3.201" os="Linux" type="Mandrake" version="
+8.9"/>
</hosts>

<hosts>
  <server os="linux" type="redhat" version="8.0">
...
    <address>192.168.3.201</address>
  </server>
</hosts>