Select Code to Download

my $image = Imager->new( xsize=>$X, ysize=>$Y, channels=>1 );
$image->box(filled=>1, color=> Imager::Color->new(255,255,255) );