use Data::Dumper;
use XML::Simple;
#...
open(FILE, "someFile.DTD") or die "can't open file: $!";
#...
my $config = XMLin($FILE, forcearray => 1);  
print Dumper($config);