#! /bin/perl
use PDL;
use PDL::FFT;
use PDL::IO::Pic;
use PDL::Image2D;
use PDL::ImageRGB;
use PDL::ImageND;
use PDL::Primitive;
use PDL::Slices;

  $real = PDL->rpic('image.pgm');    # read image
  $display = zeroes(256,256);        # new empty image
  PDL::rescale2d($real, $display);   # scale into empty image
  $display->wpic("test.tif");       # done