请问DBI模块是否能支持“/ as sysdba"这种登录方式？

从DBI的文档上看，它只能用
sub oracle_login {
        ### The database handle
        $dbh = main::DBI->connect( "dbi:Oracle:$main::my_ora_tns", "$main::my_ora_user", "$main::my_ora_pass" ,{
                PrintError => 1,
                RaiseError => 1
        })        or die "Can't connect to Oracle database: $DBI::errstr\n";
}

这种方式登录，但是有些情况下，是必须用"/as sysdba"这种方式登录的，请问大家，DBI是否能够支持这种登录方式呢？

谢谢！

我也想知道 所以搜了一下 找到了这个
看看满足需求不：
[url]http://www.mail-archive.com/dbi-users@perl.org/msg24128.html[/url]

可以用，谢谢！
#!/usr/local/bin/perl -w
use DBI;
use strict;
delete $ENV{ 'ENV' };
$ENV{ORACLE_SID}        = "ORCL";
$ENV{ORACLE_HOME}       = "/opt/oracle/product/10.2.0";
$ENV{NLS_LANG}          = "AMERICAN_AMERICA.AL32UTF8";
$ENV{ORA_NLS}           = $ENV{ORACLE_HOME} . "/ocommon/nls/admin/data";
$ENV{PATH}              = $ENV{ORACLE_HOME} . "/bin:/usr/bin";
$ENV{LD_LIBRARY_PATH}   = $ENV{ORACLE_HOME} . "/lib";
my $connect_mode = 2;   # 2=SYSDBA
my $dbh = DBI->connect( 'dbi:Oracle:','', '',
        { ora_session_mode => $connect_mode,
          PrintError => 1, AutoCommit => 0 } )
        or die "Cannot connect: $DBI::errstr\n\n";
print "Connected.\n";