sub db_connection {

    my ( $self ) = @_;
    my $dbh;