sub safe_query_execute {
    my ($db_handle, $query) = @_;

    my $query_handle = $db_handle->prepare($query)
        or confess "Error preparing query: $query\n"
                    . "Error: $DBI::errstr\n";

    eval {
        $query_handle->execute();
    };
    if ( $@ ) {
        confess "QUERY ERROR: $DBI::errstr\n"
                . "QUERY: $query\n";
    }

    return $query_handle;
}