$dbh  = DBI->connect($DSN,$user,$pw, { RaiseError => 1 })
|| die "Cannot connect: $DBI::errstr\n" unless $dbh;