my $c1 = $scr->Canvas(
-background => "#FF8000",
-borderwidth => 0,
-relief => "flat",
);

$c1->place( -x => 0, -y => 0, -height => $image_height, -width => $image_width);

$c1->createText(int($image_width/2), int($image_height/2), -text => 'Diese ist ein Textbeispiel',
-font => "{MS Sans Serif} 14 {bold}");