$test = zeroes(byte,3,500,300,4);
$image = rim($test->slice(':,:,:,(0)'),'GardenSM.jpeg');
$image2 = float($image);
($depth, $xsize, $ysize) = dims($image2);

##</code><code>##

Use of uninitialized value in concatenation (.) or string at C:/Perl/site/lib/PDL/IO/Pic.pm line 320.
Use of uninitialized value in pattern match (m//) at C:/Perl/site/lib/PDL/IO/Pic.pm line 321.
Oops, this is not a PNM fileconverter error:  at C:/Perl/site/lib/PDL/IO/Pnm.pm line 77