<?xml version="1.0"?> <!DOCTYPE informalexample PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN" "http://www.oasis-open.org/docbook/xml/4.1.2/docbookx.dtd"> <informalexample><programlisting> sub print_content_model { my($self) = shift; local($_) = shift; local(*FILE) = shift; my(@cm) = $self->format_content_model2($_); foreach $_ (@cm) { print FILE $self->make_links($_, 1, 1), "\n"; } } </programlisting></informalexample>