# Bildgröße setzen
$img->Set(size=>'30x20', fill => 'white');
$img->ReadImage("xc:$color_hex");
$img->Draw(
  primitive=>'rectangle', 
  points=>'10,1 15,20', 
  strokewidth=>1,
  stroke=>'Black', 
  fill => 'none' );