script perl conecta no Oracle 8 mas nao no 9

Pessoal,
Tenho 2 servidores Oracle em um servidor, um Oracle 8 e outro Oracle 9
Estou precisando fazer um script para saber se os servidores estão ok.
Usei o código abaixo em perl

#!/usr/bin/perl -w
use DBI;

$host= "9.1.1.7";
$user = "web";
$passwd = "web4develop";

$sid = shift || "ora8"; # caso seja passado algum parametro conecta no 9

if ( $sid eq "ora8" ) {
$ENV{ORACLE_HOME} = ´/u01/ora816/app/oracle/products/8.1.6/´;
} else {
$ENV{ORACLE_SID} = ´ora9´;
$ENV{ORACLE_HOME} = ´/u01/ora901/app/oracle/product/9.0.1/´;
$ENV{ORACLE_BASE} = ´/u01/ora901/app/oracle´;
}
DBI->connect("dbi : oracle:host=$host;sid=$sid", $user, $passwd, { PrintError = > 0 } ) or die("CRITICAL: $DBI::errstr"-);
print "Ok : \n";

Para o Ora8 está tudo bem, mas para 9 dá a mensagemERROR OCIEnvInit at check_oracle line 17.
IMPORTANTE:
Sei que é problema de variaveis de ambiente, mas qual?


[ Esta mensagem foi editada por: clever em 07-01-2003 14:02 ]