#!/usr/bin/perl -w

use Image::Magick;

$image=Image::Magick->new;
$image->Set(size=>'100x100');
$image->Read("xc:white");
$image->Raise('3x3');

$image->Draw(stroke=>'red',primitive=>'rectangle',points=>'20,20 25,25');
$image->Draw(stroke=>'red',primitive=>'rectangle',points=>'30,20 35,25');
$image->Draw(stroke=>'black',primitive=>'line',points=>'25,23 30,23');

binmode STDOUT;
$image->Write('gif:-');