Help for this page
sub dbh { my ($u,$p) = ('user',':)'); ... return $dbh; }
sub dbh { state $dbh; ... } return $dbh; }