my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_user,$db_pass) || die "$DBI::errstr\n";

# or
my $dbh = DBI->connect("DBI:mysql:database=$database:host=$host",$db_user,$db_pass,{RaiseError=>1});