Не срабатывает Perl код.

[zooloo]

Не могу понять, в чем проблема: сайт на perl, есть SSI. Выполняю инструкции по установке: на htm/html страницу ставлю инклуд

<!--#include virtual ="/cgi-bin/sape/add_sape.cgi" -->

В файл add_sape.cgi ставлю предложенный код

"$ENV{DOCUMENT_ROOT}/*******************/SAPE.pm" =~ /^(.+)$/;
require $1;
my $sape = new SAPE(
user => '*******************',
host => '<ИМЯ_ХОСТА>', # необязательно, по умолчанию: $ENV{HTTP_HOST}
charset => 'windows-1251', # необязательно, по умолчанию: windows-1251
);
print $sape->get_links;

не забыв перед этим

#!/usr/bin/perl -w

ну и скачанную папку с правами 777 - в корень сайта. Переменные окружения дают корректные данные, их замена ручками на нужные значения ничего не дала, файл links.db создается, однако на странцу в том месте, где стоит инклуд, выводится стандартное сообщение об ошибке:

[an error occurred while processing this directive]

а в логи:

Use of uninitialized value in print at /[...путь...]/cgi-bin/sape/add_sape.cgi line 10.
[error] [...ip...] Premature end of script headers: /[...путь...]/cgi-bin/sape/add_sape.cgi
[error] [...ip...] unable to include "/cgi-bin/sape/add_sape.cgi" in parsed file [...путь...]/page_name.htm

Согласно рекомендаций FAQ (или ответчика) проследил передачу данных внутри скрипта - на ту "ветку" программы, где содержится ссылка на server (my $links_url = "http://$self->{server}/code.php...), похоже, вообще никогда не переходит...

хелп плиз.

[alex_bu]

Первые три строки скрипта add_sape.cgi поностью покажите, как есть...

[alex_bu]

#!/usr/bin/perl
use warnings;
use strict;
print "Content-type: text/html; charset=windows-1251\n\n";
require "/usr/home/path_to_module/SAPE.pm";

Вот так в начале сделайте...

[zooloo]

Огромное спасибо, помогло )

[alex_bu]

Да не за что. Будут вопросы по perl - обращайтесь.