Inte säker på om det hjälper, men följande fungerade för mig:
FÖR ATT ansluta lokalt med tnsnames.ora (i $ORACLE_HOME/network/admin-katalogen):
my $db = DBI->connect( "dbi:Oracle:mydatabase", "scott", "tiger" );
och för att ansluta utan att använda tnsnames.ora:
my $db = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=1521",$user,$passwd)
|| die( $DBI::errstr . "\n" );
där $host, $sid måste definieras i förväg.