package External;
sub dbh { $External::dbh ||= DBI->connect( 'DBI:mysql:test','root','' ) } #dbh