#!/usr/bin/perl -w

use Image::Magick;

$image = Image::Magick -> new;
$image -> Set(size => '10x10');
$image -> ReadImage ('canvas:white');
$image -> Set('pixel[1,1]' => 'red');
$image -> Set ('pixel[1,2]' => 'red');

@pixels = ();
$pixels[0]=0.5;
$image -> SetPixel (x=>1, y=>1, color => \@pixels);
$image -> Write ('test.png');