use DBI qw(:sql_types);
use DBD::Oracle qw(:ora_types);

my $sql3="insert into BEE_DBO.SQL_EXECUTION_LOG(process_execution_id,".
               "process_step_seq,file_id,sql_statement)".
              "values(?,?,?,?)";
      my $sth2=$dbinfo->{'dbh'}->prepare($sql3);
      $sth2->bind_param(1,$process_execution_id);
      $sth2->bind_param(2,$process_step_seq);
      $sth2->bind_param(3,$file_id);
      $sth2->bind_param(4,$select_insert,SQL_LONGVARCHAR);
      
      $sth2->execute;