Conexión de perl con una BD Oracle remota

[anilorac]

Mira aqui te envio dos intentos que he hecho para tratar de conectarme con la BD Oracle. El primero es un módulo de perl en el cual estoy definiendo la conexión. El segundo es un script completo en el cual estoy definiendo tanto la conexión como la consulta de la BD. Cualquier ayuda se las agradezco.

Ejercicio de prueba 1:

#!/usr/bin/perl -w
package ConectarDB_O;
use strict;
use DBI;
# variables a editar
my $db_user = "curso3";
my $db_pass = "curso3";
my $host_name = "mig";
my $db_name = "sbmig";
# vars

my $q_string = "DBI:oracle:host=$host_name;sid=mig;port=1521;data base=$db_name";

sub connect{
return (DBI->connect ($q_string, $db_user, $db_pass,
{PrintError => 0, RaiseError => 1}));
}
1;


Ejercicio de prueba 2:

#!c:\perl\bin\perl.exe -w
$qry = new CGI;
print header();
print start_html();
use strict;
use DBI;
#$dbh = DBI->connect('dbi:Oracle:host=mig;sid=sbmig;port:1521' ,'curso3','curso3','');
$dbh = DBI->connect('dbi:Oracle:', q{curso3/curso3@(DESCRIPTION=
(ADDRESS=(PROTOCOL=TCP)(HOST= mig)(PORT=1521))
(CONNECT_DATA=(SID=sbmig)))}, "")


$sth = $dbh->prepare ("SELECT * FROM empleados WHERE cargo=?");

$cia = $qry->param ("PRESIDENTE");


$sth->execute ($cia ) ;


while(@consulta=$sth->fetchrow_array()){
print "Id: ".$consulta[0]." Nombre: ".$consulta[1]." Apellido: ".$consulta[2]." Direccion: ".$consulta[3]." Telefono: ".$consulta[4];
}
$sth->finish;

print end_html();

PD: Hago la aclaración que tengo instalado el modulo de perl DBD::Oracle. Gracias