sub delete {
     my $obj = shift;
     my $sth = $obj->{queries}{delete} || $obj->{dbh}->prepare( 
                               "DELETE FROM guest_list
                               WHERE  last_name = ? and
                                      first_names = ?" );
     $sth->execute($obj->{_last_name},
                   $obj->{_first_names});
     $obj->{queries}{delete} = $sth;
     return 1;
  }