Ayuda: Como escribir cursores en plperl?

Hola a todos!! estuve investigando como utilizar plperl para crear funciones procedurales mediante perl,pero me surge una duda, esperando que uds, me pudieran ayudar,

he tratado de escribir una funcion que me permite pasar datos de una tabla a otra, tratando de normalizarla en el camino, de lo siguiente me queda esot :

CREATE OR REPLACE FUNCTION apellidos() RETURNS text AS $$
DECLARE
curselect CURSOR FOR select nombrec,apel,cargo,enlace,idpgp from permiso;
curinsert refcursor;
my $pgp=null;
while($row=spi_fetchrow(curselect))
{
FETCH curdata INTO nombre,apell,link,gpg;
@apellidos=split(/ /,apell);
$pgp=(!defined gpg)?'NULL':pgp;
OPEN curinsert FOR EXECUTE "INSERT INTO posgrado.personal(nombre,apellidop,apellidom,cargo,idpgp,enlaceins) VALUES('nombre','$apellidos[0]','$apellidos[1]','link','$pgp')";
CLOSE curinsert;
}
CLOSE curselect;
return undef;
$$ LANGUAGE plperl;

Creanme, he investigado por la red antes de meterme a la lista y aparte dentro de los archivos de la lista para ver si encontraba una respuesta, la verdad no encontre nada por eso recurro a uds. y su conocimiento.

Mis preguntas son, es válido utilizar cursores con plperl, y si es válido como podría hacerle, tendrán documentación sobre el uso de plperl, con cursores , tendrán un ejemplito, :p?

:::::::::::::::::::::::::::::::::::::::::::::::
:: El éxito es una suma de fracasos..... ::
:: el secreto está en no acostubrase a ambos ::
:::::::::::::::::::::::::::::::::::::::::::::::

______________________________________________
Todo sobre la Copa América.
Mantenete actualizado con las últimas noticias sobre esta competencia en Yahoo! Deportes. ¡Entérate primero! http://mx.sports.yahoo.com/futbol/copaamerica/index.html