##
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.