my $parser = DeviousPorpoises->new(generic.dtd);