$i = GD::Image->new( 10, 10, 1 );;
$i->setPixel( $_, $_, $_ ) for 0 .. 9;;