#...

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

open(FILE, "someFile.DTD") or die "can't open file: $!";

my $config = XMLin("someFile.DTD", forcearray => 1);

print Dumper($config);