ge-&gt;get_datatype;
    my @type = (&quot;byte&quot;,&quot;short&quot;,&quot;ushort&quot;,&quot;long&quot;,&quot;indx&quot;,&quot;unknown&quot;,&quot;float&quot;,&quot;double&quot;);

    my $str = &quot;$title: &quot;;
    $str .= &quot; Type &quot; . $type[$dt]    . &quot; (&quot; . $dt . &quot;)&quot;;
    $str .= &quot; Dims &quot; . $image-&gt;ndims . &quot; (&quot; . join(&quot;/&quot;,( $image-&gt;dims )) . &quot;)&quot;;
    $str .= &quot; #Ele &quot; . $image-&gt;nelem;
    $str .= &quot; Sum  &qu