sub DB_connect
{
    my $self = shift;
    $self->{dbh} = DBI->connect( DBI_STRING )
        ||    die "Cannot connect: $DBI::errstr\n";    
}

sub DB_finish
{
    my $self = shift;
    $self->{dbh}->disconnect;
}

##</code><code>##

      
-------->
SV* sv_bless(SV* sv, HV* stash);