Есть триггер

CREATE OR REPLACE FUNCTION filename_trigger_func() RETURNS trigger AS '
DECLARE
return_new integer := 1;
BEGIN
if exists(select * from filename where name=NEW.name) then
raise NOTICE \'row ignored \';
return_new := 0;
end if;


PERFORM perl_trigger_add_file(NEW);



if return_new = 1 THEN
return NEW;
ELSE
return NULL;
END IF;

END;
' LANGUAGE plpgsql;


Он вызывает перловую функцию perl_trigger_add_file. При срабатывании триггера получаю сабжевую ошибку. Товарищи специалисты, подскажите, что я не правильно делаю и как правильно вызввать перловую функцию из plpgsqlного триггера (постгрес 7.4, нет возможности сделать триггер непосредственно на перле).