my $dbh = DBI->connect("DBI:mysql:$host", $user, $pass) ||
    die "Could not connect: $DBI::errstr\n";