CREATE TYPE testrow AS
   (f1 text, f2 bytea, f3 text);
ALTER TYPE testrow OWNER TO postgres;

CREATE OR REPLACE FUNCTION testdbf()
  RETURNS SETOF testrow AS
$BODY$
use DBI;
my $dbh = DBI->connect("DBI:XBase:/home/user/test") or die $DBI::errstr;
my $sth = $dbh->prepare("select rn, listname from acatalog") or die $dbh->errstr();
   $sth->execute() or die $sth->errstr();
while ( $row = $sth->fetch)
{
    return_next({f1=>$row->[ 0 ],f2=>$row->[ 1 ], f3=>$row->[ 1 ]});
}
return undef;
$BODY$
  LANGUAGE 'plperlu' VOLATILE;
ALTER FUNCTION testdbf() OWNER TO postgres;
select * from testdbf();