That's very nice code for a "perl newbie". Congratulations.

I would suggest adding a error check to the database insert statement, like this:

$dbh->insert_row('il2e009_bk_review',\%review) or die "Insert failed: 
+$DBI::errstr\n";
[download]