Select Code to Download

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

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