sub new
{
    my ($class, $args) = @_;
    my $self = bless { dbname => $args->{dbhame} }, $class;
    $self->init( $args->{init} );
    return $self;
}