Нужна консультация по Perl

Ничего не понял

Если я правильно понял, то

мой вариант похожий

открывает gif, выдает заголовок и печатает

или отваливается с ошибкой 500

#!/usr/bin/perl



use CGI qw/:standard/;           # load standard CGI routines



eval {

        open(FILE, "1.gif") or die "$! $?";

                print header(-type=>'image/gif',-expires=>'+3d'); # create the HTTP header

                binmode FILE;

                print $_ while(<FILE>);

        close(FILE);

};

if($@) {

        print header(-type  =>  'text/html', -status => 500);

        print $@;

}

Оба варианта все время выдают ошибку 500

Что в логах apache?

Создать файл на своей машине. На ФТП загружать в ТЕКСТОВОМ режиме. На файл поставить пермишн 755. И будет счастье.