use XML::Simple; # qw(:strict);
use Data::Dumper;

my $simple = XML::Simple->new();
my $config = $simple->XMLin('/home/parse3.xml');

print $config;

print $config->{Data1}->{Data2}->{DATE}, ".\n";