$ perl -MDBI -e '$db = DBI->connect("DBI:mysql:database=test;user=x", "x", "x"); print "\$db is a ", ref $db, "\n"'
$db is a DBI::db