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";
}

##</code><code>##

DBI connect('billexport:server.domain.com:3306','dbadmin',...) failed: Unknown database 'billexport' at ./generatefiles.pl line 21