#!/bin/perl -w
use lib 'C:\Perl\lib\PLJava-0.04';
use XML::Smart;

## Create a null XML object:
my $XML = XML::Smart->new() ;

## Add a xml server to the list:
$XML->{configuration} = {
    version => '0.7.1.136' ,
    savepassword => 'True' ,
} ;
$XML->save('newfile.xml') ;