役立つかどうかはわかりませんが、次の方法でうまくいきました:
tnsnames.ora ($ORACLE_HOME/network/admin ディレクトリ内) を使用してローカルに接続するには:
my $db = DBI->connect( "dbi:Oracle:mydatabase", "scott", "tiger" );
tnsnames.ora を使用せずに接続するには:
my $db = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=1521",$user,$passwd)
|| die( $DBI::errstr . "\n" );
$host、$sid は事前に定義する必要があります。