Conexión de perl con una BD Oracle remota

[anilorac]

Hola, muchas gracias por tu ayuda, efectivamente tenia mal el orden de las cosas y me faltaba agregarle el dominio al host. Igual subo el modulo de perl para la conexión con Oracle, depronto puede ser de gran ayuda para alguien mas que tenga el mismo problema que yo. Miles de gracias....

ConectarDB_O.pm

#!/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.isb.com";
my $db_name = "sbmig";
my $sid = "sbmig";
# vars

my $q_string = "DBI:Oracle:database=$db_name;host=$host_name;sid= $sid;port=1521";

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


Consultar_O.pl

#!c:\perl\bin\perl.exe -w
use CGI qw/:all/;
use ConectarDB_O;
print header();
print start_html();
my($dbh,$sth);
$dbh=ConectarDB_O->connect();
$sth=$dbh->prepare('SELECT * FROM empleados WHERE cargo=?');
$sth->execute("PRESIDENTE");
while(@consulta=$sth->fetchrow_array()){
print "Id: ".$consulta[0]." Nombre: ".$consulta[1]." Apellido: ".$consulta[2]." Direccion: ".$consulta[3]." Telefono: ".$consulta[4];
}
$sth->finish;
$dbh->disconnect;
print end_html();