sub DESTROY
{
    my $self = shift;
    $self->{ 'dbh' }->disconnect();
}