# Objekt für Bilder erzeugen
my $img = Image::Magick->new();

 # Bildgröße setzen
$err = $img->Set(size=>'30x20');
die "$err" if "$err";

 # Bild mit Farbe erzeugen
my $color_hex = sprintf "#%02X%02X%02X",0,255,0;   # grün
$err = $img->ReadImage("xc:$color_hex");
die "$err" if "$err";

$err = $img->Draw(primitive=>'rectangle', points=>'10,1 15,19', 
    stroke=>'Black',
    fill => 'orange',
);
die "$err" if "$err";