sub teardown {
   my $self = shift;
   # Disconnect when we're done
   $self->param('DBH')->disconnect();
} #  teardown