#!/usr/bin/perl

use strict; 
use XML::Application::Config;
use Data::Dumper;

my $xmlfilename = $ENV{HOME}."/.myApplication.xml";

my $cfg    = XML::Application::Config->new("myApplication",$xmlfilename);
my $login  = $cfg->find('auth/login/@value');
my $passwd = $cfg->find('auth/password/@value');

my $optionscount  = $cfg->find("count(optionlist/option)");

print "Options(#): '$optionscount'\n";

for (my $i=1; $i <= $optionscount; $i++) {
        my $name  = $cfg->find("optionlist/option[$i]/\@name");
        my $value = $cfg->find("optionlist/option[$i]/\@value");
        $options->{$name} = $value;
        print "    Option $i: '$name'='$value'\n";
}

print Dumper($options);