# Bild mit Farbe erzeugen
$err = $img->ReadImage("xc:$color_hex");
die "$err" if "$err";
$err = $img->Set(fill => 'orange');    # neu
die "$err" if "$err";                  # neu
$err = $img->Draw(primitive=>'rectangle', points=>'10,1 25,18',
    strokewidth=>1,stroke=>'Black');
die "$err" if "$err";