#!/usr/bin/perl -w


use Data::Dumper;
use XML::DTDParser "ParseDTDFile";

print Dumper(ParseDTDFile($ARGV[0]));