#  Accepts a database handle, a table name, and a hashref
#  of field names and values. Returns on success, otherwise
#  dies.

sub addData
{
  my ( $dbh, $table, $args ) = @_;