hola estoy intentando conectar con una base de datos Oracle utilizando dbi y tengo esto::

Conductor no ha aplicado el método disconnect_all. en / opt /perl/lib/site_perl/5.8.0/sun4-solaris/DBI.pm línea 575
FIN fracasado - llamada cola abortado.


que yo sepa, el guión estaba trabajando antes, pero de repente ha dejado de funcionar.

i no puede encontrar ni un rastro en el registro desde log4perl no está instalado. No puedo instalar ningún módulo CPAN.

Necesito ayuda::: Esto es lo que estoy utilizando para connectibng::

my $ db \u003d DBI-> connect ( "DBI: Oracle: $ oracle_sid", "$ oracle_user", "$ oracle_passwd")

$ db-> (RaiseError) \u003d 1;
my $ sth \u003d $ db-> prepare ( "SELECT ..."); consulta aquí

$ sth-> execute ()

while (my @ fila \u003d $ sth-> fetchrow_array)
(
my $ a \u003d $ fila [0];
my $ b \u003d $ fila [1];

próximo a menos que $ a;
próximo a menos que $ b;

)
$ db-> disconnect;