OpenFTS

When i tried out the examples from primer...
Some problems occured

$psql testfts < _int.sql
CREATE FUNCTION g_intbig_compress(opaque) RETURNS opaque
AS '/usr/local/pgsql/lib/contrib/lib_int.so.1.0' LANGUAGE 'c';
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

CREATE FUNCTION g_intbig_decompress(opaque) RETURNS opaque
AS '/usr/local/pgsql/lib/contrib/lib_int.so.1.0' LANGUAGE 'c';
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

CREATE FUNCTION g_intbig_penalty(opaque,opaque,opaque) RETURNS opaque
AS '/usr/local/pgsql/lib/contrib/lib_int.so.1.0' LANGUAGE 'c';
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

CREATE FUNCTION g_intbig_picksplit(opaque, opaque) RETURNS opaque
AS '/usr/local/pgsql/lib/contrib/lib_int.so.1.0' LANGUAGE 'c';
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

CREATE FUNCTION g_intbig_union(bytea, opaque) RETURNS _int4
AS '/usr/local/pgsql/lib/contrib/lib_int.so.1.0' LANGUAGE 'c';
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

CREATE FUNCTION g_intbig_same(_int4, _int4, opaque) RETURNS opaque
AS '/usr/local/pgsql/lib/contrib/lib_int.so.1.0' LANGUAGE 'c';
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

-- register the default opclass for indexing
INSERT INTO pg_opclass (opcname, opcdeftype)
values ( 'gist__intbig_ops', 0 );
NOTICE: current transaction is aborted, queries ignored until end of transactio
n block
*ABORT STATE*

NEXT I TRIED

$ ./init.pl testfts
Can't locate DBI.pm in @INC (@INC contains: /usr/lib/perl5/5.00503/i386-linux /usr/lib/perl5/5.00503 /usr/lib/perl5/site_perl/5.005/i386-linux /usr/lib/perl5/site_perl/5.005 .) at ./init.pl line 5.
BEGIN failed--compilation aborted at ./init.pl line 5.

Please help