use CGI qw(:standard);
use Image::Magick;

my @rnd_txt = ('0','1','2','3','4','5','6','7','8','9',
                   'A','a','B','b','C','c','D','d','E','e',
                   'F','f','G','g','H','h','I','i','J','j',
                   'K','k','L','l','M','m','N','n','O','o',
                   'P','p','R','r','S','s','T','t','U','u',
               'V','v','W','w','X','x','Y','y','Z','z');
srand;
my $text;
for (0..5) {
    my $s = rand(@rnd_txt);
    $text .= $rnd_txt[$s];
}
my $background = Image::Magick->new;
$background->Set(size=>'100x30');
$background->Read('xc:black');
$background->Draw(stroke=>'black', fill=>'#990099', primitive=>'rectangle', points=>"0,0 100,15");
$background->Draw(stroke=>'red', fill=>'#127612', primitive=>'rectangle', points=>"0,15 100,30");
$background->Annotate( antialias => 'true', pointsize => 17, x=> 10, y=> 20, fill=> 'white', text=>$text );
$background->Swirl(degrees => -20);
print "Content-type: image/jpeg\n\n";
binmode STDOUT;
$background->Write('jpg:-');

на моем локальном серваке все нормально! А на хостинге выводится только картинка а текста нет! Куда посмотреть?  

• Проблема с картинкой,angra, 16:06 , 04-Мрт-09

На ошибки и предупреждения при запуске скрипта из консоли у хостера, вполне возможно что у хостера другая версия imagemagic или Image::Magick.