##
use strict;
use warnings;
use XML::Simple; # qw(:strict);
use Data::Dumper;
my $simple = XML::Simple->new();
my $config = $simple->XMLin('parse3.xml');
print Dumper($config); # this prints out parsed xml
print $config->{DATA1}->{DATA2}->{'DATE-NOW'}, ".\n";