use PDL;
use PDL::Graphics2D; #imports imag2d() and twiddle()
use PDL::Graphics::PGPLOT::Window;
use PDL::Graphics::PGPLOT; 

my $winopt = {Device => "/GW", WindowWidth => 7, Aspect => 1}; 
#my $w = PDL::Graphics2D->new($winopt);
my $w = PDL::Graphics::PGPLOT::Window->new($winopt);
$a = sequence(64,48,3);  # make test RGB image
  $a = $a->mv(2,0);        # color must be dim(0) with size [0..4]
  $a /= $a->max;           # pixel values in [0.0,1.0]
  $a = sin(10*$a);
  $w = imag2d($a);