#!/usr/bin/perl
use strict;
use warnings;
use Image::Magick;

my $err;

[..........]

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

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

 # Bild mit Farbe erzeugen
$err = $img->ReadImage("xc:$color_hex");
die "$err" if "$err";

$err = $img->Draw(primitive=>'rectangle', points=>'10,1 25,18',
    strokewidth=>1,stroke=>'Black');
die "$err" if "$err";