$dbh = DBI->connect('dbi:Oracle:mySID',"","",{
      PrintError => 0,
      AutoCommit => 1,
      ora_session_mode => ORA_SYSDBA });
if (! $dbh) {print "can't connect to instance as sysdba\n";exit;}