Select Code to Download

use LWP::Simple;
use XML::DTDParser;
...
    map { keys %{$DTD->{$_}->{'attributes'}} } keys %$DTD
];
define_vocabulary($elems,$attrs);

            # it's just Perl, so we can mix in other code
            for (2..5) {
                p { text "Plus paragraph number $_." }
            }

sub render_via_xml_writer {
    my $doc = shift;
...
    render_fn($doc);
    $writer->end();
}