Select Code to Download

Loop through files-to-be-processed {
  insert article
...
    insert (article_ID, event_ID)
  }
}

my $sth_insert_article = $dbh->prepare( qq(INSERT INTO article (url, h
+tml_extr_text, concord_file, sys_time) VALUES (?, ?, ?, ?))) or die "
+Unable to prepare insert statement: " . $dbh->errstr;
foreach my $article_index (0 .. @output_concord_files_prepare) {
...
        die "Error inserting records, only [$records_inserted] got ins
+erted: " . $sth->insert_article->errstr;
    }
}