my $dbh = DBI->connect ("DBI:${dbtype}:${dbname}", "$dbuser", "$dbpass") || die $DBI::errstr;