After you've got your primary logic and error tracking down, you might want to investigate the ->execute_for_fetch method of DBI, which allows you a tight fetch-insert loop:

my $table_results= $dbh2->prepare("SELECT * from $feed_table WHERE ent
+ry_time >= $time");

my $sth_insert = $dbh3->prepare("insert into $feed_table (id_code,entr
+y_time,parent_id_code,author_name,author_code,author_url,author_image
++_url,entry_url,entry_types,
status_code,entry_text,entry_data,last_update,pull_time,queue_code) VA
+LUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?) ");

$sth_insert->execute_for_fetch(sub {
    $table_results->fetchrow_arrayref
}, my \@tuple_status);
[download]