$Conn->Open("DSN=ENG_DB;UID=enguser;PWD=yt12xcj");
print '[[',$Conn->{DefaultDatabase},"]]\n";

##</code><code>##

$Conn->Open("DSN=BADBADENG_DB;UID=enguser;PWD=yt12xcj");
print '[[',$Conn->{DefaultDatabase},"]]\n";