perl -MDBI -le '$d=DBI->connect("DBI:mysql:database=test;host=localhost","test",""); print "ok"'