my $dbh = DBI->connect( 'dbi:Oracle:'.$dbname,
        $dbusername,
        $pass,
        {   PrintError => 0,
            RaiseError => 1
        }
    ) || die "Erreur lors de la connexion: $DBI::errstr";

    print ("Connexion à la base de données $dbname avec $dbusername OK n");

    $requete = "select distinct to_char(date_appli,'yyyymmdd') from DATE_APPLI ".
           "where frequence = 'Q' and actif = 1";

    $sth_sql = $dbh->prepare($requete);
    $sth_sql->execute();
    @row=$sth_sql->fetchrow_array;
   $datesitu=@row[0];

$sth_sql->finish;
print "La date de situation est $datesitu n";

# SQL to get validation script and table names
$requete = "select SCRIPT_NAME, table_name from fdf_scripts";

$sth_sql = $dbh->prepare($requete);
$sth_sql->execute();
$sth_sql->bind_columns(undef, $script_name, $table_name);

while ($sth_sql->fetch()) {

  $script_sql="$sql_path\"."FDF_Test_scripts\".$script_name.".sql";   #validation script path
  $script_log="$log_path\".$script_name.".log";                        #log files path
  $rep_file_name="$sql_path\"."FDF_Test_scripts\".$table_name.".sql"; #reports SQL path
  $csv_file="$sql_path\"."FDF_Test_scripts\".$table_name.".csv";      #report CSV path

#Load data into validation tables using validation scripts

  $CmdText="sqlplus -s $connect @$script_sql $script_log";

  print "Inserting data into table : $table_name n";

  #system ("$CmdText");

  $col_sql = "select COLUMN_NAME from all_tab_cols where TABLE_NAME = upper('$table_name')n";

  print "$col_sqln";

  $sth_sql = $dbh->prepare($col_sql);
  $sth_sql->execute();
  $sth_sql->bind_columns(undef, $COLUMN_NAME);

  while ($sth_sql->fetch()) {

    print "$COLUMN_NAMEn";

  }



  if (open (my $fh, '<:encoding(UTF-8)', $script_log)){
    while (my $line = <$fh>){
      if ($line=~m/bERRORb/){
        print "Error While Loading $table_name table Please Check log file for errors at: $script_log n";
      }
    }
  }
  else {
        warn "Could open file: $script_log n"
  }

}

DBD::Oracle::st fetch failed: ERROR no statement executing (perhaps you need to call execute first) [for Statement "select COLUMN_N
AME from all_tab_cols where TABLE_NAME = upper('FDF_Bond_validation_results')