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