d from perltidy line-by-line
     my $self              = shift;
     my $line_of_tokens    = shift;
     my $line_type         = $line_of_tokens-&gt;{_line_type};
     my $input_line_number = $line_of_tokens-&gt;{_line_number};
     my $input_line        = $line_of_tokens-&gt;{_line_text};
     print &quot;$input_line_number:$line_type:$input_line&quot;;
 }</code></pre>

<p>The complete program, <b>perllinetype</b>, is contained in the examples section of the source distribution. As this example shows, the