use strict;
use warnings;

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

my $simple = XML::Simple->new();
my $config = $simple->XMLin('parse3.xml'); # /home/parse3.xml isn't valid on my system

#print Dumper( $config ); # Uncomment to get a dump of the data structure

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

__END__
Output:
2000-10-19.