use Graphics::Magick;
$image = Graphics::Magick->new;
$image->Set(size=>'10x10');
$image->ReadImage('xc:white');

$image->Draw(stroke=>'red', primitive=>'rectangle', points=>'3,3 7,7');
$image->ColorFloodfill(geometry=>geometry, x=>4, y =>4 , fill=>'blue', bordercolor=>'red');
#$image->Set('pixel[1,3]'=>'green');
$image->Write('block_normal.png');