create table d_table (
  d_table_id integer unsigned auto_increment primary key,
  table_name varchar(32) not null.
  d_happened timestamp not null,
  operation enum('insert','update','delete') not null,
  index (table_name, d_happened)
);

create table d_field (
  d_field_id integer unsigned auto_increment primary key,
  d_table_id integer unsigned not null,
  field_name varchar(32) not null,
  old_value text not null,
  unique index (d_table_id, field_name)
);

##</code><code>##

$dbh->do("INSERT INTO d_table table_name = ?, operation = 'insert'", $table_name);

##</code><code>##

my $old_data = $dbh->selectrow_hashref("select * from 
table_to_change where primary_key_id = ?", $table_row_id);

## update the table

$dbh->do("INSERT INTO d_table table_name = ?, operation = 'insert'", $table_name);

my $d_table_id = $dbh->selectrow_array("select last_insert_id()");

foreach my $f (@updated_field_names) {
  $dbh->do("INSERT INTO d_field (d_table_id, field_name, old_value) VALUES (?, ?, ?)",
           $d_table_id, $f, $old_data->{$f});

}