1#!/usr/bin/perl 2# 3# Make simple text with a shadow. 4# 5use Image::Magick; 6 7$image=Image::Magick->new(size=>'500x120'); 8$image->Read('xc:white'); 9$image->Annotate(fill=>'rgba(100,100,100,0.8)',pointsize=>60, 10 text=>'Works like magick!',geometry=>'+8+90'); 11$image->Blur('0x1'); 12$image->Annotate(fill=>'red',stroke=>'blue',pointsize=>60, 13 text=>'Works like magick!',geometry=>'+4+86'); 14$image->Write('shadow.gif'); 15$image->Write('win:'); 16