my $dbh = DBI->connect("DBI:mysql:database=$db;host=$host", 
                       $user, $pass, { RaiseError => 1 } ) or
   die ( "Couldn't connect to database: " . DBI->errstr );