 perl scripts in some way. The parameter <code>$formatter</code> in the perltidy call,</p>

<pre><code>        formatter   =&gt; $formatter,</code></pre>

<p>is an object created by the caller with a <code>write_line</code> method which will accept and process tokenized lines, one line per call. Here is a simple example of a <code>write_line</code> which merely prints the line number, the line type (as determined by perltidy), and the text of the line:</p>

<pre><code> sub write_line {

     # This is calle