DBTEST: {
 my $dbh=( DBI->connect("DBI:mysql:$filename:server.domain.com:3306", 'dbadmin', 'password') )
    ? print "db $filename exists\n"
    : print "db $filename does not exist\n";
}