$dbh = DBI->connect("DBI::mysql ... etc $dsn") 
    or die("Couldn't connect to $dsn: $DBI::errstr\n");