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