Select Code to Download

use DBD::Oracle qw(:ora_session_modes);   # Import ORA_SYSDBA constant

...
       print "Unable to copy file\n$!\n";
}

Unable to copy config file
No child processes

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