use strict;
use warnings;

use Image::Magick;

my $image = Image::Magick->new (
  size=>'200x200',
  background=>'white'
);

my $text = 'Blahh!';
# TrueType font im Verzeichnis des Programms
$image->Annotate(font=>'arial.ttf', pointsize=>10, fill=>'black', text=>$text);

binmode STDOUT;
$image->Write('test.png');