if ($DBI::errstr) {die("error $DBI::errstr\n");}