use strict;
use warnings;
use feature 'say';
use Image::Magick;

my $err;

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

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

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

#my $text = "aaaaaaaaa";
my $text = "aaaaaaaaa\nbbbb\nccccccccccc\nllll";
    $err = $img->Annotate(text => $text,
                    x => 40, y => 120,
                    pointsize => 20,
#                   undercolor=>'white',
                    undercolor=>'green',
                    );
die "$err" if "$err";

$img->Trim();

my $w = $img->Get('width');   # ok
say "width: $w";

$err = $img->Draw(primitive=>'line', points=>'0,0 0,99',
    strokewidth => 3, 
    stroke=>'blue',
);
die "$err" if "$err";

$err = $img->Draw(primitive=>'line', points=>"$w,0 $w,99", 
    strokewidth => 3, 
    stroke=>'blue',
);
die "$err" if "$err";

$err = $img->Write("farbiges_rechteck.gif");
warn "$err" if "$err";