sub bind_param_safe_query_execute { my ($query_handle, @params) = @_; eval { $query_handle->execute(@params); }; if ( $@ ) { confess "QUERY ERROR: $DBI::errstr\n" # somehow print the query } }