I've tried SetPixel method but couldn't find how to write pixel by pixel in grayscale with 10-bit values(0~1023).
Thanks
@pixels = $image->GetPixel(x=>1,y=>1);
$pixels[0]*=0.5;
$image->SetPixel(x=>1,y=>1,color=>\@pixels); # this is color information
$image->Quantize(colorspace=>'gray');