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";