use PDL::Graphics2D;
my $p = sequence(64,48,3);  # make test RGB image
my $win = imag2d( $p );