в чем проблема не пойму, в консоли делаю
code.pl > 1.gif потом смотрю гифку, все нормуль, запускаю апач и в браузере, в лог пишется ошибка
malformed header from script. Bad header=GIF89ax: c:/www/…/www/cgi-bin/code.pl
Код:
#!c:\perl\bin\perl
#!/usr/bin/perl
#!c:\perl\bin\perl
use Image::Magick;
use CGI::Carp qw(fatalsToBrowser);
srand();
for($i=1;$i<4; $i++){
$l1.=int(rand()*9);
}
$image = Image::Magick->new;
$img_obj = $image->Read("../barcode/1.gif");
$image->Annotate(text=>$l1, font=>'../comic.ttf', pointsize=>'44', pen=>'#6986A2', x=>10, y=>36);
$image->ReduceNoise();
$image->OilPaint();
$image->ReduceNoise();
#$img_obj = $image->Write("1.gif");
print "Content-type: image/gif\n\n";
binmode STDOUT;
$image->Write("gif:-");