my $dbh = DBI->connect($dsn, "", "", { ora_session_mode => ORA_SYSDBA });

##</code><code>##

my $dbh = DBI->connect($dsn, "system", $sysdba_password, { ora_session_mode => ORA_SYSDBA });