Select Code to Download

sub dbh {
    my ($u,$p) = ('user',':)');
...

    return $dbh;
}

sub dbh {
    state $dbh;
...
    }
    return $dbh;
}