sub dbh { state $dbh; if ( ! defined $dbh ) { # blah blah bah } return $dbh; }