#!"C:\perl\bin\perl.exe"

use warnings;
use strict;
use XML::Simple;
use Data::Dumper;


my $config = XMLin('test.xml');

open(OUT,'>','out.txt') or die;

print OUT Dumper($config);