...
my $query_handle = $db_handle->prepare($query);
eval {
   $query_handle->execute();
};
if ( $@ ) {
   confess "Query Error $DBI::errstr\nQuery: $query\n";
}