[caracas-pm] Problemas con Script de Perl+DBD::Oracle

[Alexis Arnal]

Saludos,
Tal como dije en el correo anterior, había solucionado el problema de
la instalación del DBD::Oracle actualizando la versión de Perl, ahora
tengo otro problema, el cual les comento a continuación.

Estoy teniendo problemas con la ejecución de un script que se conecta
a una base de datos oracle y ejecuta una consulta, el script se
ejecuta en la consola pero cuando lo intento ver por el navegador
aparentemente no lo ejecuta y me arroja el siguiente error:

######################
Tue Feb 14 17:31:55 2006] [error] [client 192.168.31.144]
install_driver(Oracle) failed: Can't load
/usr/local/lib/perl5/site_perl/5.8.7/i686-linux/auto/DBD/Oracle/Oracle.so'
for module DBD::Oracle: libclntsh.so.9.0: cannot open shared object
file: No such file or directory at
/usr/local/lib/perl5/5.8.7/i686-linux/DynaLoader.pm line 230.
[Tue Feb 14 17:31:55 2006] [error] [client 192.168.31.144]  at (eval 3) line 3
[Tue Feb 14 17:31:55 2006] [error] [client 192.168.31.144] Compilation
failed in require at (eval 3) line 3.
[Tue Feb 14 17:31:55 2006] [error] [client 192.168.31.144] Perhaps a
required shared library or dll isn't installed where expected
#######################

el script que estoy corriendo es éste:

#!/usr/local/bin/perl -w
use DBI;
$user="prueba";
$password='1234';
$host = 'localhost';
$port= 1521;
$sid='prueba';

$driver="dbi:Oracle:host=$host;sid=$sid;port=$port";
print "Content-type: text/html\n\n";

unless ($dbh= DBI -> connect($driver,$user,$password)) {
	print "\n No se pudo contactar el servidor \n";	
	} else {print "<H1>CONECTADO\n</H1><br>"}	

$sth = $dbh->prepare("SELECT cod_estado FROM estado ");
$sth->execute;

while(($datos)=$sth->fetchrow_array){
        print "$datos\n";
       }

Otra pregunta como hago para hacer debugger con Ptkdb de una aplicación web??
--
#--------------------
#!/usr/bin/perl -w
# Ing. Alexis Arnal
# GNU/Linux user: 378161
# Debian - Kernel 2.6.7-1-386
# CNE. Caracas - Venezuela
#---------------------
use strict;
print "No basta con alcanzar la sabiduría, es necesario saber utilizarla\n";
print "Marco Tulio Cicerón. 106 AC-43 AC. Escritor, orador y político romano\n";
print "http://www.proverbia.net";
#---------------------