sub get_dbh {
    state $dbh ||= connect_dbh( ... );
}