my $p = sequence(64,48,3);  # make test RGB image
my $win = $p->imag2d();

##</code><code>##

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