      print &quot;\n&quot;;
 }</code></pre>

<h2 id="B.-info_pdl-data-title">B. info_pdl($data,$title)</h2>

<p>The function <code>info_pdl()</code> prints some information of the PDL data to STDOUT. This can be helpful to debug the image processing, to see the size and some other data of some resulting image PDL.</p>

<p>Some PDL functions are used to get this information, i.e. get_datatype(), ndims(), nelem(), dims() and sum().</p>

<pre><code> sub info_pdl {
    my ($image,$title) = @_;
    my $dt = $ima