Select Code to Download

<?xml version="1.0"?>                                         | <!DOCT
+YPE book PUBLIC "-//OASIS//DTD DocBook V4.2//EN" [
<!DOCTYPE article PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//E | <!ENTI
+TY nwalsh "Norman Walsh">
...
</article>                                                      </arti
+cle>
                                                              > </book
+>

#!/usr/bin/perl -w
use strict;
...
        print $_;
}
print "</book>\n";