use strict;
use warnings;
use Image::Magick;

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

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

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