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

my $text = 'So etwas ist keine Zauberei!';
my $image=Image::Magick->new(size=>'700x120',font=>'Generic.ttf',pointsize=>54);
$image->Read('xc:white');

$image->Annotate(text=>$text,fill=>'rgba(100,100,100,0.8)',geometry=>'+30+90');
$image->Blur('0x1');
$image->Annotate(text=>$text,fill=>'gold',stroke=>'blue',geometry=>'+26+86');

$image->Write('shadow.gif');
$image->Write('win:');