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